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INTRODUCTION 

The  development  of  mathematical  models  for  temperature  sensitive  bulk 
cushioning  materials  requires  a  very  precise  and  exacting  procedure.  The 
procedure  which  has  been  developed  during  the  M1C0M  Cushioning  Material 
Research  Program  consists  of  the  following  aspects: 

1.  experimental  design 

2.  data  acquisition  forms 

a)  single  material 

b)  composite  two  material 

3.  test  plan 

4.  temperature  effects  (analysis  of  variance) 

5.  outlier  detection 

6.  individual  dynamic  dushioning  curves 

7.  model  development 

8.  model  validation 

9.  model  optimization 

a)  tailored  cushion  (CUSHOP) 

b)  encapsulation  (ENCAP). 

Each  of  these  aspects  will  be  discussed  in  the  material  which  follows.  For 
several  aspects,  a  computer  code  exists  to  perform  the  calculations  necessary 
to  utilize  that  portion  of  the  procedure.  These  computer  codes  have  been 
tested  extensively,  and  have  been  utilized  in  the  development  of  nine  bulk 
cushioning  models. 

This  report  will  be  confined  to  a  general  description  of  the  developed 
container  cushioning  methodology.  Complete  details,  together  with  extensive 
data  analysis,  are  contained  In  [1  -  9]  for  the  individual  Interested  in  a 
specific  appl ication. 
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EXPERIMENTAL  DESIGN 


The  procedure  begins  with  the  experimental  design  which,  for  all 
MICOM/UAH  temperature  sensitive  bulk  cushioning  efforts,  has  been  a  split- 
split  plot  design.  The  split-split  plot  design  is  a  specialized  form  of 
a  nested  design  In  which  a  subtreatment  factor  is  nested  within  a  main 
treatment,  and  a  sub-subtreatment  is  crossed  with  the  subtreatment  factor  and 
the  main  treatment. 

Under  this  design  configuration,  the  mathematical  model  for  each  experi¬ 
mental  observation  may  be  written  as 

yijkt  =  ^  +  Si  +  Rt  +  SRu!  pL0T 

+  Thj  +  STh^ j  +  ThRjt  +  SThRijt|  SPLIT-PLOT 

+  Tk  +  ST1k  +  ThTjk  +  SThTijk  +  TRkt 

SPLIT-SPLIT  PLOT 

+  ThTR +  STR..  +  SThTR.  ., 

Jkt  lkt  ijkt 

where  p  »  the  general  mean 

Sj  »  1th  static  stress  level 

Thj  *  material  thickness 

T^  =  kth  temperature  level 

R^  ■  tth  replication 

SR.^  ■  whole  plot  error 

ThRjt  +  SThR^t  *  Split-plot  error 

TRfct  +  ThTRj +  $TRikt  +  SThTR^ t  *  Split-split  plot  error. 
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DATA  ACQUISITION  FORMS 

In  an  attempt  to  simplify  the  data  acquisition  procedure,  while  maintain¬ 
ing  the  randomization  element  of  experimental  design,  a  data  collection  form 
generator  has  been  prepared  for  use  on  the  UNIVAC  1100.  This  form  generator 
prepares  forms  of  the  type  shown  in  Table  1.  The  randomization  scheme  pro¬ 
vides  the  order  in  which  the  drop  height-thickness  experimental  combinations 
should  be  performed.  For  example,  the  first  experimental  combination  to  be 
performed  for  a  given  stress  level,  temperature,  and  replication,  according 
to  Table  1,  is  identified  by  a  1  at  the  intersection  of  a  2  inch  thickness 
and  a  30  inch  drop  height.  Thus,  the  random  order  of  experimentation  is  com¬ 
pletely  provided. 

The  numbers  to  the  right  of  the  matrix  gives  the  experimenter  the  order 
of  material  samples  to  be  loaded  into  the  temperature  controlled  bins.  Con¬ 
sequently,  during  the  actual  drop  tests,  the  temperature  conditioned  samples 
can  be  drawn  out  in  the  proper  sequence,  with  a  minimum  amount  of  time  and 
temperature  loss. 

A  computer  code  for  single  material  forms  generation  is  provided  in 
Appendix  A.  The  computer  code  for  composite  two  material  forms  generation  is 
located  in  Appendix  B.  A  sample  of  a  composite  two  material  form  is  given  in 
Table  2. 
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Table  1.  Sample  data  collection  form  for  single  material 
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Table  2.  Sample  data  collection  form  for  two  materials 
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TEST  PLAN 

The  experimental  testing  of  any  bulk  cushioning  material  requires  a 
documented  test  procedure.  The  test  plan  follows  the  ASTM  method  D  1596-64 
(dynamic  drop  test  procedure),  with  MICOM  compensation  for  temperature 
extremes,  since  the  ASTM  method  considers  a  temperature  of  73°F  only.  The 
procedure  assumes  a  drop  tester  and  related  data  measuring  equipment  are 
available  as  specified  by  MIL-C-26861. 

The  test  plan  follows: 

1.  Identify  approximately  nine  well-spaced  static  stress  values 
in  the  0.03  to  5.0  psi  range  based  on  the  specific  material 
to  be  tested  (not  all  materials  can  withstand  psi  values 
greater  than  2.0).  Testing  should  be  in  ascending  static 
stress  value  order. 

2.  Procure  an  adequate  number  of  test  specimens  (8.0  by  8.0 
inches)  to  satisfy  temperature  conditioning  requirements  and 
replication  demands. 

3.  The  temperatures  to  be  utilized  are  -65°F,  -20°F,  20°F,  70°F, 
110°F,  and  160°F,  while  drop  heights  are  12",  18",  24",  and 
30". 

4.  Initially,  condition  the  test  specimens  by  dropping  on  them 
once,  one  at  a  time,  from  a  24  inch  drop  height  measured  from 
the  top  of  the  sample,  at  70°F. 

5.  The  test  specimens  are  loaded  into  conditioning  bins  according 
to  the  right  most  column  on  the  data  form.  Each  bin  is  loaded 
to  a  specific  replication  with  a  total  of  three  replications 
per  temperature/static  stress. 

6.  The  test  specimens  are  conditioned  to  the  desired  temperature 
in  the  conditioning  bins. 
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7.  Only  one  drop  is  permitted  per  test  specimen  per  conditioning 
phase.  This  precludes  dropping  on  compressed  test  specimens, 
which  would  bias  the  experimental  data.  Test  specimens  are  to 
be  permitted  to  return  to  ambient  temperature  prior  to  being 
temperature  conditioned  again  (approximately  24  hours). 

8.  The  testing  sequence  (1-12)  has  been  randomly  established  by  the 
representative  numbers  for  each  of  the  twelve  blocks  on  the  data 
sheet.  The  first  test  specimen  to  be  tested  is  identified  with 

a  one  in  the  upper  right  hand  corner  of  one  of  the  twelve  identi¬ 
cally  shaped  blocks  on  each  data  sheet. 

9.  Two  experimental  values  are  to  be  recorded  for  each  drop  test. 

The  value  to  be  recorded  on  the  upper  portion  of  the  individual 
data  location  is  the  peak  G  value.  Below  this  value  should  be 
recorded  the  pulse  width  in  milliseconds. 

This  test  plan  will  result  in  valid  experimental  data  to  be  utilized  in 
the  development  of  superimposed  dynamic  cushioning  curves.  The  sections 
which  Immediately  follow  will  address  the  data  analysis  portion  of  the  model 
development  methodology. 
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TEMPERATURE  EFFECTS 


The  effect  of  temperature  upon  foamed  bulk  cushioning  materials  has 
been  proven  conclusively  in  [1  -  3].  However,  there  may  be  an  occasion 
when  the  experimenter  desires  to  verify  the  temperature  effect  upon  some 
new,  exotic  bulk  cushioning  material.  Consequently,  the  material  which 
follows  in  this  section  will  describe  the  method  of  identifying  a  signifi¬ 
cant  temperature  effect. 

In  order  to  test  the  significance  of  the  temperature  effect  on  cushion¬ 
ing  material  properties,  an  ANalysis  Of  VAriance  (ANOVA)  is  conducted  on  the 
data  for  each  material  type  based  on  the  experimental  split-split  plot  design. 
The  appropriate  ANOVA  is  performed  on  the  data  by  utilizing  a  UNIVAC  1108 
STAT-PACK  code  entitled  ANOSSP  (Appendix  C).  A  summary  discussion  of  the 
assumptions  and  calculation  methodology  employed  in  this  code  is  contained 
in  [1]. 

A  sample  ANOVA  table  is  shown  in  Table  3.  In  general,  it  is  known  that 
a  significant  difference  exists  between  stress  levels  or  between  material 
thicknesses.  This  information  is  provided  once  again  as  part  of  the  ANOVA 
procedure.  The  important  significance  test  in  Table  3  is  the  one  related  to 
temperature.  In  repeated  testing  upon  Minicel,  Ethafoam  2,  Ethafoam  4, 
Urether  3,  and  Urester  4,  the  temperature  effect  has  always  been  very  signi¬ 
ficant.  On  a  new  bulk  cushioning  material,  it  would  be  important  to  test 
for  a  temperature  effect. 
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Table  3.  A  Sample  ANOVA  Table 


OUTLIER  DETECTION 

As  every  experimenter  knows,  an  observation,  purportedly  taken  under  the 
same  conditions,  may  be  widely  different  from  other  observations,  or  an  outlier 
from  the  rest.  Thus,  the  problem  confronting  the  experimenter  is  whether  to  keep 
the  suspect  observation  in  computation,  or  whether  it  should  be  discarded  as  a 
faulty  measurement. 

Although  many  criteria  have  been  proposed  for  guiding  the  rejection  of 
outliers,  none  were  found  in  the  literature  which  were  particularly  applicable 
to  this  case.  Consequently,  an  extension  of  the  extreme  studentized  deviate 
from  the  sample  mean,  or  Nair  Criterion,  was  developed  and  incorporated  as  a 
preface  program  to  the  CVREG  curvilinear  regression  computer  code. 

Referring  to  Table  4,  the  first  step  in  the  outlier  subroutine  is  to  com¬ 
pute  the  sample  variances  for  each  set  of  three  replications  of  G  levels  to 
find  which  set  has  the  maximum  sample  variance.  For  the  set  of  observations 
having  the  largest  variance,  each  observation  of  the  set  is  then  tested 
individually  as  a  candidate  for  rejection  as  an  outlier  by  using  the  statistic 


where  xp  -  an  individual  observation  in  a  set  of  three  replications 
x  =  the  sample  mean  of  the  three  observations 

s^  =  an  independent  external  estimate  of  the  standard  deviation  from 
concurrent  data. 

To  get  s^,  the  set  of  replications  of  G's  having  the  maximum  sample 
variance,  as  indicated  above,  corresponding  to  a  particular  stress  level,  is 
eliminated  from  the  calculations  of  s^.  From  the  remaining  sets  of  repli¬ 
cations  of  G's,  s  is  calculated  with  the  expression 
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Drop  Height  of  12 


where  sj  =  sample  variance  of  the  i^  set  of  replications  of  G's  and 
n  =  number  of  stress  levels. 

The  values  of  the  t  statistic  for  each  observation  in  the  set  of  repli¬ 
cates  being  tested  are  compared  with  the  appropriate  value  from  a  t  table. 

A  point  is  rejected  as  an  outlier  if  t(calculated)  >  t(table  value)  [10]. 

If  an  observation  is  rejected  in  the  first  iteration  of  the  outlier 
test,  the  set  of  replicates  to  which  it  belonged  is  no  longer  considered  in 
further  calculations,  but  the  code  then  moves  to  the  set  of  replicates  with 
the  next  highest  sample  variance  to  check  for  outliers.  Iteration  is  con¬ 
tinued  until  a  set  of  replications  is  checked  and  no  points  are  rejected. 

Safeguards  are  built  into  the  outlier  test  code  which  restrict  the  num¬ 
ber  of  data  points  that  can  be  rejected  in  a  set  of  replicates.  For  instance, 
only  one  point  can  be  rejected  in  a  set  of  three  replications.  Also,  if  two 
of  the  three  values  of  t  are  the  same  and  are  greater  than  the  test  criterion 
value  of  t,  then  neither  of  the  observations  is  rejected.  This  is  essentially 
a  tie  rule  for  a  relatively  rare  but  possible  eventuality. 

The  outlier  detection  code  is  contained  in  Appendix  D. 


12 


I 


INDIVIDUAL  DYNAMIC  CUSHIONING  CURVES 

With  the  outlying  observations  removed  from  the  data,  the  data  is  suffi¬ 
ciently  conditioned  for  input  into  the  curvilinear  regression  code  (CVREG), 
which  determines  the  equation  of  the  statistically  best  fitting  polynomial 
for  use  as  the  dynamic  cushioning  design  curve  for  a  particular  drop  height 
and  material  thickness. 

A  fairly  rigorous  method  for  determining  the  degree  of  the  polynomial  to 
be  fitted  to  a  given  set  of  data  consists  of  first  fitting  a  straight  line  to 
a  set  of  data,  i.e.,  y  =  b  +  b^  and  testing  the  hypothesis  p,  =  0.  Then, 
fit  a  second  degree  polynomial  and  test  the  null  hypothesis  =  0,  namely, 
that  nothing  is  gained  by  including  the  quadratic  term.  If  this  hypothesis 
can  be  rejected,  a  third-degree  polynomial  is  fitted  and  the  hypothesis 

=  0  is  tested,  etc.  This  procedure  is  continued  until  the  null  hypothesis 
=  0  cannot  be  rejected  in  two  successive  steps  and,  consequently,  there  is 
no  apparent  advantage  to  carrying  the  extra  terms. 

The  output  of  the  CVREG  code  contains  the  coefficients  of  the  first, 
second,  third,  and  fourth  degree  polynomials  for  the  experimental  data  under 
consideration.  In  addition,  each  polynomial  is  accompanied  by  an  analysis  of 
regression  variance,  and  an  F-statistic  for  determining  whether  the  third  and 
fourth  terms  should  be  retained.  In  most  cases,  a  second  order  polynomial 
is  sufficient  to  describe  the  experimental  data. 

The  CVREG  code  is  contained  in  Appendix  D. 
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MODEL  DEVELOPMENT 


The  experimental  data  for  a  particular  cushioning  material  from  which 
the  individual  dynamic  cushioning  curves  were  developed  is  now  utilized  in 
total  to  develop  a  generalized  model.  The  generalized  model  is  predicated 
upon  a  combination  of  drop  height,  cushion  thickness,  cushion  temperature, 
and  static  stress  level  mathematical ly  stated  as: 


1 

l  h 


Ui 


1 

y 

k«0  T 


1 l 

j  =  1  i=0 


c . 


i  jkC 


(<n  100  o  )' 


3 

l 

n=l 


V  c  ( v'n  100  o  ) 
mn  c 


mc0 


where  c  *  constant 

o 

h  «  drop  height 

T  »  thickness 

Or  |  4h0 

0  1  temperature  *  — TfftP' 

o  *  static  stress, 

s 

From  this  general  model  it  is  necessary  to  select  the  combination  of  terms 
which  best  describes  the  situation  to  be  modeled. 

A  stepwise  regression  procedure  (Appendix  E)  is  utilized  in  acquiring 
coefficients  for  the  general  model.  A  total  of  45  terms  are  considered  bv 
the  stepwise  regression  procedure.  These  terms  represent  the  combinations 
of  variables  found  to  describe  bulk  cushioning  behavior  very  adequately.  A 
summary  of  the  variable  combinations  is  given  in  Table  5.  The  variable  com¬ 
binations  are  identified  by  an  x  in  the  appropriate  column. 

Each  time  a  variable  is  added  to  the  general  model .  it  is  necessary  to 
evaluate  the  resultant  dynamic  cushioning  curves  to  assure  the  proposed  model 
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is  providing  the  hypothesized  U-shaped  curves  which  do  not  possess  negative 
peak  accelerations,  and  the  curves  are  distinct.  Obviously,  many  of  the 
developed  models  will  be  similar  in  their  predictive  ability.  However,  first¬ 
hand  observation  during  the  experimental  phase,  supported  by  statistical 
evaluations  at  each  step  of  the  model  development  effort,  are  the  best  methods 
to  evaluate  the  various  developed  models.  In  addition  to  the  developed  mathe¬ 
matical  models,  the  regression  procedure  provides  printer  plots  for  each  drop 
height/thickness/temperature  combination,  to  assist  in  a  valid  model  selection 
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MODEL  VALIDATION 


The  model  validation  procedure  builds  on  the  earlier  aspects  of  the 
methodology  being  described.  In  [6],  a  procedure  for  validating  the  model 
dynamic  cushioning  curves  is  documented  in  detail,  which  is  predicated  upon 
prediction  limits. 

The  developed  generalized  model  procedure  provides  dynamic  cushioning 
curves  for  individual  combinations  of  drop  height,  temperature,  static  stress, 
and  cushion  thickness.  The  individual  dynamic  cushioning  curves  [IDCC]  are 
compared  with  the  developed  prediction  limits  to  ascertain  whether  the 
generalized  model  is  predicting  the  IDCC  in  a  consistent  statistical  fashion. 

In  essence,  the  test  of  the  generalized  model  is  to  determine  if  it  can  pro¬ 
vide  6-level  values  which  include  the  significant  static  stress  level  portion 
of  the  IDCC  and  still  remain  within  the  prediction  limits  for  the  particular 
conditions  under  consideration.  The  significant  portion  of  the  IDCC  is 
identified  as  the  minimum  IDCC  G-level  value  bounded  by  +  1.0  psi.  This  signi¬ 
ficant  portion  may  be  truncated  at  the  lower  or  upper  static  stress  level  if 
the  bounds  fall  outside  the  standard  static  stress  range  of  0.05  to  5.20  psi. 

The  validation  code  is  provided  in  Appendix  F.  A  sample  output  is  given 
in  Table  6  for  the  Ethafoam  2  model.  The  minimum  G-level  for  the  IDCC  is 
25.67  at  a  static  stress  of  1.6  psi.  Consequently,  the  significant  portion 
is  0.60  to  2.60  psi  as  identified  by  the  double  asterisk  (**)  to  the  left 
of  the  MODEL  column.  Over  this  static  stress  range,  it  is  seen  that  all  model 
values  are  contained  within  the  developed  prediction  limits  for  this  case. 

Thus,  the  general  model  is  found  to  be  predicting  G-level  values  very  ade¬ 
quately. 


Table  6.  Sample  Validation  Output 


ETHAFOAM-2  12.0  IN.  D.H. 


1.0  IN.  THICK  -65.0  TEMPERATURE 


STATIC  STRESS 

DECELERATION 

(G) 

PSI 

IDCC 

LOWER-P 

MODEL 

UPPER-P 

.  05 

173.75 

156.18 

187.51 

191.32 

.10 

119.70 

102.45 

125.06 

136.95 

.  1 5 

93.74 

76.81 

95.17 

110.68 

.20 

77.86 

61.23 

76.95 

94.49 

.25 

67.00 

50.67 

64.51 

83.33 

.  30 

59.06 

43.02 

55.45 

75.09 

.  35 

53.00 

37.25 

48.57 

68.76 

.40 

48.25 

32.78 

43.18 

63.72 

.45 

44.43 

29.23 

38.86 

59.63 

.50 

41.31 

26.38 

35.36 

56.25 

.  55 

38.74 

24.06 

32.47 

53.42 

.60 

36.59 

22.16 

*★ 

30.07 

51.02 

.  65 

34.78 

20.59 

28.06 

48.97 

.70 

33.25 

19.30 

26.37 

47.21 

.  75 

31.96 

18.23 

24.95 

45.68 

.80 

30.85 

17.35 

★  * 

23.75 

44.36 

.  85 

29.91 

16.62 

★  ★ 

22.73 

43.20 

.90 

29.11 

16.02 

*★ 

21.87 

42.19 

.95 

28.43 

15.54 

★  * 

21.15 

41.31 

1.00 

27.85 

15.15 

★  ★ 

20.54 

40.55 

1.20 

26.34 

14.34 

★  ★ 

19.03 

38.34 

1.40 

25.72 

14.29 

★  ★ 

18.52 

37.14 

1 .60 

25.67 

14.72 

’k'k 

18.66 

36.63 

1.80 

26.01 

15.42 

★  ★ 

19.22 

36.59 

2.00 

26.60 

16.30 

★  ★ 

20.07 

36.91 

2.20 

27.39 

17.28 

★★ 

21.13 

37.50 

2.40 

28.31 

18.33 

★  ★ 

22.33 

38.28 

2.60 

29.32 

19.43 

★  ★ 

23.63 

39.21 

2.80 

30.40 

20.56 

25.01 

40.25 

3.00 

31.54 

21.72 

26.44 

41.36 

3.20 

32.71 

22.89 

27.91 

42.53 

3.40 

33.91 

24.09 

29.40 

43.73 

3.60 

35.12 

25.30 

30.91 

44.94 

3.80 

36.35 

26.53 

32.42 

46.16 

4.00 

37.58 

27.77 

33.94 

47.38 

4.20 

38.81 

29.03 

35.46 

48.59 

4.40 

40.04 

30.29 

36.97 

49.79 

4.60 

41.27 

31.56 

38.47 

50.98 

4.80 

42.49 

32.83 

39.97 

52.16 

5.00 

43.71 

34.08 

41.46 

53.33 

5.20 

44.92 

35.32 

42.93 

54.52 
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MODEL  OPTIMIZATION 


The  development  of  a  valid  mathematical  model  of  impact  response  for 
a  particular  cushioning  material  creates  a  need  for  specific  application 
techniques.  A  coninon  application  method  is  a  tailored  cushion,  where  the 
cushion  thickness  is  determined  first,  and  the  size  of  the  cushion  determined 
second.  This  application  technique  is  entitled  CUSHOP,  referring  to  tailored 
cushion  optimization. 

Another  corrion  application  method  is  encapsulation  (ENCAP),  where  the 
entire  surface  of  the  protected  item  is  encased  by  the  cushioning  material. 

The  maximum  and  minimum  surface  areas  must  be  determined  prior  to  calculating 
the  cushion  thickness  when  the  encapsulation  method  is  utilized. 

Appendix  G  contains  the  computer  codes  for  the  CUSHOP  and  ENCAP  appli¬ 
cation  procedures.  Detailed  instructions  for  the  use  of  these  codes  is  con¬ 
tained  in  [9].  Table  7  is  a  typical  CUSHOP  code  output,  from  which  the  super¬ 
imposed  dynamic  cushioning  curves  may  be  plotted.  In  a  similar  manner. 

Table  8  is  a  typical  ENCAP  code  output.  In  both  cases,  tabular  values  are 
provided  over  a  static  stress  range  of  0.10  to  5.00  psi  for  a  cold,  ambient, 
and  hot  temperature  value.  In  addition,  the  codes  identify  the  cushion 
thickness  required  to  provide  the  desired  item  protection  for  the  applica¬ 
tion  technique  selected. 

The  cushion  designer  who  desires  a  plotted  set  of  superimposed  dynamic 
cushioning  curves  for  a  particular  set  of  conditions  should  consult  [8]  for 
complete  details.  A  typical  set  of  superimposed  dynamic  cushioning  curves 
is  given  in  Figure  1  for  the  CUSHOP  application  technique  utilizing  the 
Minicel  cushioning  material.  It  is  seen  that  three  and  one-half  inches  of 
Minicel  provide  the  item  to  be  protected  to  a  30  G  fragility  level  over  a 
temperature  range  of  -65°F  to  1 60°F ,  and  a  drop  height  of  26  inches.  The 
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Table  7.  Typical  CUSHOP  Output 


CfabHlON  MmTlkIAL  OPTIMIZATION 
CUbHOP 

MlNICtL 

LO*«_K  bb  .t >0  UPhEk  bb  1.4u  DboP  HLIGHT  ^6.0  G-LEVLL  30.0 

MAIlhIAL  TMlCKuLbb  3.50 

TEMPERATURES  -ob.Ou  70.  Oo  lbO.OO 

*ElGHT  10.00  MIN.  BEARING  AKtA  7.14  MAX.  BEARING  ARlA 


STATIC  SIRlSS 

CuLL)  G-LLVEL 

ambient  o-level 

HOT  G-LEVEL 

.Ob 

237 » ol 

119.08 

70.31 

.10 

lb0.9o 

73.72 

45.15 

.lb 

123.50 

53.01 

34.47 

.20 

100.27 

41.08 

28.69 

.2b 

84.17 

33.41 

25.25 

.30 

72.2b 

28.17 

23.10 

.3b 

63.06 

24.4b 

21.76 

.40 

bb.  74 

21.78 

20.94 

.4b 

49.78 

19.82 

20.49 

.bO 

44.04 

16*40 

20.30 

.5b 

40.70 

17.38 

20.30 

.60 

37.  j.8 

16 .  b  7 

20.44 

.fab 

34.17 

16.20 

20.69 

.70 

31.58 

15.92 

21.03 

.7b 

29.33 

15.80 

21.43 

.80 

27.37 

15  •  oO 

21.89 

.8b 

25. ob 

15.92 

22.39 

.90 

24.1b 

1G.  11 

22.92 

.9b 

22.83 

16.39 

23.47 

1.00 

21. u7 

lb. 72 

24.05 

1.0b 

20  •  o5 

17.10 

24.64 

1.10 

19.75 

17.53 

25.25 

1.1b 

18.96 

17.99 

25.86 

1.20 

18.2b 

18.49 

26.40 

1.2b 

17.o5 

19.01 

27.11 

1.30 

17.12 

19. bo 

27.74 

1.3b 

16.ob 

20.12 

28.37 

1.40 

16.25 

20.71 

29.01 

1.4b 

15.90 

21. 3o 

29.64 

l.bO 

15.ol 

21.91 

30.28 

1.5b 

15*  3b 

22*53 

30.91 

1.60 

15.15 

23  .lo 

31.54 

l.fab 

14.99 

23*60 

32.18 

1.70 

14.85 

24.44 

32.80 

1.7b 

14.75 

25.08 

33.43 

1.80 

14.o9 

25.73 

34.o5 

1.8b 

14. b4 

26.39 

34 .  b7 

1.90 

14.03 

27.05 

35.28 

1.9b 

14.03 

27.70 

35.90 

2.00 

14  .ob 

28*  3o 

3b. 50 

2.0b 

14.  71 

29.03 

37.11 

2.10 

14.78 

29. b9 

37.71 

2.1b 

14. 8b 

30.35 

38.31 

2.20 

14.96 

31.01 

38.90 

2.2S 

15.08 

31. o7 

39.49 
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Table  7. 


Typical  CUSHOP  Output  (concluded) 


2.30 

lb.^1 

32.33 

40. 07 

2.3b 

15.  Jb 

32.99 

40.6b 

2.40 

lb.  bO 

33.04 

41.23 

2.4b 

lb.o7 

34.30 

41.60 

2.bO 

15.04 

34.9b 

42.37 

2.bb 

16.03 

3b*oo 

42.93 

2.t>u 

1  b .  22 

3t>  .2b 

43.49 

2.6b 

16.43 

bO  •  90 

44.0b 

2.  r o 

16.04 

37  •  b  4 

44.60 

16.  Oo 

36.16 

4b.  15 

2.80 

17.06 

36.62 

45.69 

2.8b 

17.32 

39. 4o 

40.23 

2.90 

17.  bo 

40.10 

40.77 

2.9b 

17.60 

40.73 

47.30 

3.00 

16. Ob 

4  1  •  3o 

4  7. 63 

3.0b 

16.31 

41.96 

46. 3b 

3.10 

16.  b7 

42  •  ol 

46.67 

3.1b 

16*63 

43.23 

49.39 

3.20 

19.10 

43*  6b 

49.90 

3.2b 

19.37 

44.4o 

bO.  41 

3.30 

19. ob 

4b»  0  7 

b0.92 

3.3b 

19.93 

4  b*  06 

bl  .42 

3.40 

20.21 

4o«29 

51.92 

3.4b 

20.  bO 

40*69 

52.42 

3.  bO 

20.79 

4  7.49 

52.91 

3  .  bb 

21.06 

46*09 

53.4  0 

3.60 

21.36 

46.69 

53.69 

3.bb 

21.06 

49  .  <:6 

54.37 

3.  70 

21.97 

49.0  7 

54 .  Bb 

3.  7b 

22.26 

bO»4b 

bb.  33 

3.60 

22.  bO 

bl .  04 

bb«60 

3.6b 

22 . 06 

bl  * 62 

bo. 27 

3.90 

23.19 

52*19 

bo. 74 

3.9b 

23. bO 

b2. 77 

57.20 

4.00 

23.61 

b3  •  34 

57 .  o7 

4.0b 

24.12 

b3 .91 

58 . 1 2 

4.10 

24.43 

b4  *46 

56.56 

4.1b 

24. 7b 

bb  *04 

59.03 

4.20 

2b*  Oo 

bb » oO 

59.48 

4.2b 

2b.  36 

bo  •  lo 

59.93 

4.30 

2b.  70 

bo  .72 

o0»37 

4.3b 

26.01 

b7. 27 

o0.62 

4.40 

26 . 33 

b7 . 62 

ol .  20 

4.4b 

26.  ob 

b6.3  7 

6l  «o9 

4  •  bO 

26.97 

56*91 

62.13 

4.bb 

27.29 

b9.4b 

o2 .  bo 

4.60 

27.01 

b9 . 99 

o2.99 

4.6b 

2  7.93 

oO  *  b3 

o3. 4  1 

4.70 

26  •  <16 

61.06 

63.64 

4.7b 

28.  b6 

Ol  * o 0 

04.26 

4.60 

28.90 

b2*  13 

04  .  oO 

4.6b 

29.^2 

c>2  •  6b 

ob.  09 

4.90 

2‘7.bb 

o  3  *  16 

ob.  b  1 

4.9b 

29. o7 

o3  *70 

6b.  92 

b.  00 

30.19 

64 .22 

66*33 
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Table  8.  Typical  ENCAP  Output 


CUSHION  MATLKIAL  OPTIMIZATION 
ENoAP 

lTMAFOAM-Z 

LO*t_r\  bb  ,o3  UPPER  Sb  1.00  D«OP  HlIOHI  23.0  G-LEvlL  35.0 
MATERIAL  T MiCKNt.bb  2.50 

TEMPERAluREb  -ob.00  70.00  lbO.OO 

*ElbHT  lo.OO  MIh.  BtARING  AklA  10.00  MAX.  BEARINo  ARcA  12.  uO 


bTATIC  bIRLbb 

CoLU  O-LEVEL 

AMBIENT  6-lEVEL 

HOI  6-LLVE 

.05 

264.3b 

154.25 

61.86 

.10 

190.21 

95.03 

41.61 

.15 

144.57 

67.93 

33.28 

.20 

116. *+2 

52*06 

28.95 

.25 

96.99 

41.71 

26.49 

.30 

82.oQ 

34.50 

25.06 

.35 

71.69 

29.20 

24.27 

.40 

62.97 

25.40 

23.88 

.45 

55.91 

22.49 

23.77 

.50 

50.10 

20.26 

23.86 

.55 

45.24 

18.01 

24.10 

.60 

41.15 

17.35 

24.44 

.65 

37.06 

16.41 

24.85 

.70 

34. o7 

15.  74 

25.33 

.75 

32.10 

15.29 

25.85 

.BO 

29.68 

15.01 

26.41 

.85 

27.9b 

14.67 

26.99 

.90 

26 . 26 

14.06 

27.59 

.95 

24.03 

14.95 

28.21 

1.00 

23.5b 

15.12 

28.63 

1.05 

22.46 

15.37 

29.47 

1.10 

21.50 

15.69 

30.11 

1.15 

20. o7 

16.05 

30.76 

1.20 

19.9o 

16.47 

31.40 

1.25 

19.35 

16.92 

32*05 

1.30 

16.02 

17.42 

32.70 

1.35 

18.38 

17.94 

33.34 

1.40 

18.01 

16.49 

33.98 

1.45 

17.  71 

19.06 

34.62 

1.50 

17.47 

19.65 

35.26 

1.55 

17.28 

20.26 

35.89 

1.60 

17.14 

20.66 

36.52 

1.65 

17.05 

21.52 

37.15 

1.70 

17.00 

22.17 

37.77 

1.75 

lb. 98 

22.63 

36.39 

1.80 

17.00 

23.50 

39.00 

1.85 

17.05 

24.16 

39.61 

1.90 

17.13 

24.66 

40.21 

1.95 

17.24 

25.55 

40.81 

2.00 

17.37 

26.24 

41.40 

2.05 

17.53 

26.94 

41.99 

2.10 

17.  70 

27.63 

42.57 

2.15 

17.90 

28.34 

43.15 

2.20 

18.11 

29.04 

43.72 

2.25 

18.34 

29.75 

44.29 
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Table  8.  Typical  ENCAP  Output  (concluded) 


<2.30 

18.59 

30 

45 

44.85 

2.3b 

18.85 

31 

16 

45.41 

2.40 

19.13 

31 

67 

45.96 

2.4b 

19.41 

32 

57 

40.51 

2.50 

19.71 

33 

26 

47.06 

2.5b 

20.02 

33 

99 

47.60 

2.60 

20.34 

34 

69 

48.13 

2.6b 

20.  67 

35 

40 

48.67 

2.70 

21.01 

36 

10 

49.19 

2.7  b 

21.35 

36 

80 

49.72 

2.80 

21.71 

37 

50 

50.23 

2.8b 

22.07 

38 

20 

50.75 

2.90 

22.44 

38 

90 

51.26 

2.9b 

22.61 

39 

59 

51.76 

3.00 

23.19 

40 

29 

52.27 

3.0b 

23.57 

40 

96 

52.76 

3.10 

23 . 9b 

41 

b  7 

53.26 

3.1b 

24.3b 

42 

35 

53.75 

3.20 

24.7b 

43 

04 

54.24 

3.2b 

25.16 

43 

72 

54.72 

3.30 

25.57 

44 

40 

55.20 

3.3b 

25.98 

4b 

07 

55.67 

3.40 

26.39 

45 

78 

56.15 

3.45 

26.61 

46 

42 

5b.62 

3.50 

27.23 

47 

09 

57.08 

3.55 

27.b5 

47 

7o 

57.54 

3.60 

28.07 

48 

42 

56.00 

3.6b 

28.50 

49 

08 

58.4b 

3.70 

28.93 

49 

74 

58.91 

3.7b 

29.36 

50 

39 

59.3b 

3.80 

29.  19 

51 

05 

59.60 

3.85 

30.23 

51 

70 

60.24 

3.90 

30*06 

52 

3b 

60.68 

3.95 

31.10 

52 

99 

bl .  12 

4.00 

31.54 

53 

03 

bl.55 

4.05 

31.98 

54 

27 

bl .  98 

4.10 

32.42 

54 

91 

62.41 

4.15 

32.66 

55 

54 

62.84 

4.20 

33.30 

56 

17 

63.26 

4.25 

33.75 

56 

80 

63 . 08 

4.30 

34.19 

57 

43 

04.09 

4.35 

34. b3 

58 

05 

b4  •  51 

4.40 

35.08 

58 

07 

64.92 

4.45 

35.52 

59 

29 

bb.  33 

4.50 

35.97 

59 

90 

bb.73 

4.55 

36.42 

OO 

52 

bb.  14 

4.60 

36.  b6 

61 

13 

bb.  54 

4.65 

37.31 

61 

73 

bb.  94 

4.70 

37.75 

02 

34 

07.33 

4.7b 

38.20 

62 

94 

b7 . 73 

4.80 

38.05 

63 

54 

08.12 

4.85 

39.09 

04 

14 

08.51 

4.90 

39.54 

04 

73 

b8 . 89 

4.95 

39.98 

05 

32 

69.28 

5.00 

40.43 

b5 

91 

69.66 
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Mi  nice!  "CUSH OP 


tailored  cushion  would  be  7.14  inches  square  at  a  static  stress  level  of 
0.80,  or  some  combination  between  these  two  extremes.  Only  values  of  static 
stress  which  extend  from  0.80  and  including  1.40  psi  can  be  utilized  for  the 
solution  to  this  situation. 

Similar  superimposed  dynamic  cushioning  curve  results  are  obtained  with 
the  ENCAP  code,  for  a  particular  set  of  conditions.  Figure  2  is  a  typical 
output  of  the  ENCAP  application  technique. 
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ETHRFDRM  2  ENCRP 


Figure  2.  Ethafoam  2  "ENCAP 


CONCLUSIONS 

This  report  documents  the  step  by  step  procedure  necessary  to  develop 
a  bulk  cushioning  model  for  use  in  either  a  tailored  or  encapsulation  appli¬ 
cation.  Appropriate  computer  codes  are  included  in  the  Appendices  for  the 
model  development  methodology.  Any  new  bulk  cushioning  material  can  be 
modeled  utilizing  the  developed  methodology. 


27 


REFERENCES 


1.  Wyskida,  R.  M.  and  M.  R.  Wilhelm,  Temperature  Sensitive  Dynamic  Cushioning 
Function  Development  and  Validation  for  Hercules  Minicel 1  Thermoplastic 
Foam ,  UAH  Research  Report  No.  V59,  Vol.  I ,  Huntsvi lie,  A1 abama ,  Septembe r 
T574. 

2.  Wyskida,  R.  M.  M.  R.  Wilhelm,  and  J.  D.  Bynum,  Temperature  Sensitive 
Dynamic  Cushioning  Function  Development  and  Validation  for  Polyester  and 
Polyether  Type  Polyurethane  Foam,  UAH  Research  Report  No.  15$.  Vol.  III. 
Huntsvi  Vie,  Alabama,  December  1974. 

3.  Wyskida,  R.  M.,  M.  R.  Wilhelm,  and  J.  D.  Bynum,  Temperature  Sensitive 
Dynamic  Cushioning  Function  Development  and  Validation  for  DOW  Ethafoam 
Polyethylene  Foam,  UAH  Research  Report  No.  172,  Vol .  I.  Huntsville.  Alabama , 
July  19/6. 

4.  Wyskida,  R.  M. ,  M.  R.  Wilhelm,  and  J.  D.  Bynum,  Temperature  Sensitive 
Dynamic  Cushioning  Function  Development  and  Validation  for  Blocksom  Rub- 
beri zed  Hair,  UAH  Research  Report  No.  172,  Vol.  Ill,  Huntsville.  Alabama . 
July  1975.  “ 

5.  Wyskida,  R.  M. ,  M.  R.  Wilhelm,  and  J.  D.  Johannes,  Development  and  Appli¬ 
cation  of  Confidence  Intervals  and  Prediction  Limits  on  Dynamic  Cushioning 
Functions  for  Selected  Temperature  Sensitive  Cushioning  Materials,  UAH 
Research  Report  No.  180,  Vol.  V,  Huntsville,  Alabama,  October  1975. 

6.  Wyskida,  R.  M.  and  J.  D.  Johannes,  Validation  of  Generalized  Cushioning 
Models  for  Selected  Temperature  Sensitive  Cushioning  Materials,  UAH 
Report  No.  187,  Vol.  1 ,  Huntsville ,  Alabama,  October  19V6. 

7.  Wyskida,  R.  M.,  J.  D.  Johannes,  and  M.  R.  Wilhelm,  Container  Cushioning 
Design  Engineer  Users  Manual,  UAH  Report  No.  187,  Vol .  II ,  Huntsville, 
Alabama,  October  1976. 

8.  Wyskida,  R.  M. ,  J.  D.  Johannes,  and  M.  R.  Wilhelm,  Container  Cushioning 
Design  Engineer  Users  Manual  (HP-9815A  Version),  UAH  Report  No  203, 

Vol.  I,  Huntsville,  Alabama,  August  1977. 

9.  Wyskida,  R.  M.  and  J.  D.  Johannes,  Container  Cushioning  Design  Engineer 
Users  Manual  (CDC-6600  FORTRAN  Version),  UAH  Report  203,  Vol.  II, 

June  19?6. 

10.  Natrella,  M.  G. ,  Experimental  Statistics,  National  Bureau  of  Standards 
Handbook  91 ,  August  1963. 


28 


APPENDIX  A 

Single  Material  Data  Collection  Form  Generator  Code 
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The  Single  Material  Data  Collection  Form  Generator  Code  will  generate 
and  print  any  specified  number  of  special  data  collection  forms  for  a  given 
specific  material,  as  exemplified  by  Table  1  of  this  report.  The  number  of 
forms  and  material  name  are  input  by  the  user. 
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V. 

V. 

b 

b  *  * 


jIhOlL  i'iATlKIal  U>'1A  CuLLlv.  T  ION  FORM  GENERATOR 


v. 

v.  1  Fiib  PkuoKAM  RhixlOi*il  Y  UHULKb  ThE  NUMbEkb  FROM  1  10  USING  A 

b  uNlFuFM  RANDOM  NU^bER  OENtK«l0R>  THEN  bALLS  A  SUbROUT  INt  WHICH 

v.  PRiMS  FORMS  CuNTAIMMv,  Thl.  rANOOMUEO  CUSHION  ThILKNLSSES. 

v. 

bOf-iMON  /NOwS/  NUMll2)  »A(12)  »KUMR112)  .Ntw(it) 
bOMMON  /MATT/  MAT l 3) # Ml  1 » M Tfc » Ml  3 
v, 

b  kLmu  thl  NUMbLrt  Of-  FORMS  lo  HR  1 N1  »  NF  r  AND  THE  RANoU  bEt_D  X(l). 

S» 

KEAU  lb»4uu)  uF  » A 1 1 ) 
v.  eAmMPLE  Col 

l  1234 bo /o'*0l234bo7byo 

b  S  4o / 1 • 

b 

v-  i\t  Al  Till-  HrTEkIaL  wAMLb  AimD  I  HE  SAMPLE  THICKNESSES 

v. 

REmU  ( b  *  bo l )  Ii»iaM1)»I  — 1»j)»mT1»MT2*mTj 
l 

w  EXAMPLE  col 

l  lt3‘*bo /by0l234bo /bso 

b  L 1 HAF  OAM“2  12  3 

C 

O0  100  1-1 » 12 

NUm  ( 1 )  =  1 
lOo  lOi^TINUL 
L 

l  uEhERMl  Anf)  PrInI  NF  FoRmS 

L 

uO  3o0  i-i »  NF 
CAlL  RAixUO  (  X  *  12  ) 

L 

v.  ORuLH  ThE  SAMP.-E  1  HICKnESsls  BY  RANDOM  ARRAY 

L 

oAll  SOrT  112) 

he*  (  l )  — mt  i 

><L  *  T  2  )  —  M  T  1 
hEm 1 3 ) =MTl 
imE*  l  *♦ )  -i’i  T  i 
Nt*  l  b )  — i»lT  2 
wE*  v  b )  -i»iTt 

nE*  (  7 )  -ioT  2 
Nt*  <o)  =i*lT>. 

NL* l 9) -MTj 
WE»T10)=M1 j 
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•  <L«*  U  1  )  -M  I  J 
'«t  «  k  12  )  -M  |  0 
uO  *:U0  i\=l  f  12 
1  Swb-Nc.-t  (  i\  t 
IMUi*.K  l  I  jUU  )  -Ul  k  ^\  ) 
wOu  v-Oi»  I  IuOl. 

V. 

k-  uLlMChATL  wt-ik  inmuUI1  bt£u 

V* 

A(l)=x(i2)*l«0fc.<+  +  l«0 
k.  ACL  ikN  i  Tl 


o  0  c 

lOi«  1  INuc. 

*KiTt. 

loio^fl) 

bTv>P 

L 

‘♦Ju 

P  A  T 

tlJ»Fc‘»u) 

JO* 

P uhVAT 

l  3*4  #  j  it. ) 

oOu 

P  OKr-tA  T 

l  lnl ) 

l.Nu 
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I 

I 

I 


I 

1 


1 


bUoKOUTlNL  SuKf(N) 

uO.‘iA.UN  /NuisS/  NUNi<12)  »A(1^J  #N<JMR<12)  »Ntwll2> 

v. 

V.  JOurtOol  i.-it.  FOu  bOr  TING  M  KANDONi  NUMbtRb  IN  ASCLNDING  ORuER 

v.  ANu  AKKmNvjlS  I  tit.  OoKKEbPONOK.G  THICNNEbbEb »  NUM»  ACCORDING  TO 

v.  T H i b  RA^QOhlZAI  ION  SCHEME, 

o 

M=N 

i3w  COuT  lNUt. 

Ni— 1*1/  c 

IF  (M.tu.o)  KfclORN 
N-iV*.V 

O—i 

kOo  COnTINUl 

i-J 

jOo  oOImT  I NUt. 

IUI  +  M 

if  iXllJ  *l,I  «X(il)  )  Go  TO  A  0  o 
F-a  l 1 ) 

Xli):xUI) 

A  ( 1 1 )  =F 
wF -NUM l I ) 

NUi*i  l  I )  -wUM  (II) 

NON  l  1 1  >  -Nl- 
i  — I— Fi 


IF  ( I 

00 

TO 

000 

COi'.T  INUc. 

0  =  0+  I 

IF  (J.G1.KJ 

GO 

TO 

IGu 

oO  To  2uG 
t_Nu 


. 
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bUuKOUT  1NL  <mK  1  I  L 

bUt>ROuT  1NL  WHICH  HKlNT  THt  RANDOMIZED  FORMS  FOR 
URuP  HElOHlS  Ut  12*  • » lb» » *24»  * »  AND  30  •  •  • 

COMMON  /NUMS/  NUN  (12)  >X(l2)  ,|jUMR<12)  iMLw(k) 
COMMON  /MAI T /  MAT( J) »MT1 »MT2»M1 J 


wRil  E 

(  U  r 

loO) 

(MAT (I) t i-l'S) 

wRiTE 

(or 

£00) 

wRiTE 

l  o  r 

300) 

wKl  It 

(or 

400) 

wRiTE 

( o  r 

400) 

wRiTE 

( O  r 

boO) 

(HUM  I)  >1  =  1'4) 

WRilE 

(  O  r 

1900) 

NU'*'R  ( 1 ) 

wRiTE 

(or 

4u0) 

wRl  IL 

(or 

o00 ) 

wRiTt 

( O  r 

7o0> 

>1 1 1 

WRiTE 

( o  r 

l94u) 

uUf'R(£) 

wRiTE 

(or 

CJOO  ) 

wRiTE 

( o  r 

ouO ) 

rtRlTt 

( o  r 

l90o) 

iMUMR(  J) 

MR  lit 

(or 

ouO ) 

WRITE 

( 6  r 

boO) 

wRilt 

(or 

1900) 

NUMR ( 4 ) 

wRI  IE 

( or 

300) 

mR  1  T  t. 

(or 

9u0 ) 

•«K  lit 

( o  r 

4u0) 

mKiTE 

(or 

loOu) 

wRi  1 1. 

( o  r 

1 90  0 ) 

muMR ( b) 

wRiTt 

(or 

4u0) 

WRITE 

(or 

1100) 

(NUM(  I ) t I=b»b) 

wRiTE 

(br 

4u0) 

wRilt 

(or 

1200) 

wRiTE 

(or 

1900) 

ilU^'R  ( t> ) 

wRiTE 

(or 

ooO ) 

wRilt. 

( o  r 

/00) 

i*i  r  2 

WRITE (6* lJoO) 

wRiTE 

( o  r 

ouO ) 

wRilt 

( O  r 

1400) 

wRilt 

( O  r 

190U) 

HU MR ( 7 ) 

wRiTt 

( O  r 

ouO ) 

wRi  IL 

(or 

lbOo) 

WRITE 

( O  r 

boO) 

WRiTE 

( O  r 

loOO) 

wRiTt 

(Or 

1900) 

NUMR(a) 

WRITE 

(or 

boO ) 

wRiTt 

(  Or 

lt>0o ) 

wRilE 

( O  r 

JoO) 

WRilt 

(Or 

1900) 

NUMR  ( 9 ) 

WRilE 

( O  r 

4o0 ) 

wRi  IE 

( O  r 

4u0) 

wRiTt 

( O  r 

I90u ) 

hUMr (10) 
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«RllL  turbOC)  IhU'M  I  )  *  1  =  9#  1<J) 

*Ri  Tt  loiHoO) 

wR l 1 1  ( u » uoO ) 

rtRilt.  (ufiVOo)  111) 

a  K  X  1 1.  I  o  »  /  0  0  )  M )  0 

*K lit  (of  bliO  ) 

aKITl  (oiboO) 

*Ri1 1  loflyOU)  I«UMR(12) 

*R  1 1 1  (ofboO) 
rtK lit  ( o »  bliO ) 
wRlTL  (ufioOU) 

Rt I  URN 
L 
U 

XOo  FurMAT  l  lhX 1 2bA» 'blNoLt  MA f lK I AL * * // * 2bX * 3a4 » /// » 12X , » S 1 RESS  Lt VfL 

i:  •  »ibx»  'RlPhuaiion:  '///i^x.  *  tempera lUnt:  •////> 

20u  FORMAT  tin  »34A»»L'ROP  Ht loHT * // lbX t » 1 » » 4X * 4M12 • • » 3x t *  X • , 4X * 4H18* * # 
1  bA  »  '  1  •  >4X»4H24*  •  f^Xf  *  1  •  ,  4Xr  Ah3o*  *  »  3X»  *  1  •  ) 

bjo  FORMAT  1 1  <c.  A  f  • - 1'nO - 1 - l'l) 

•♦Jo  FOrMAT  (  Ioa  t  1  I  *  #  4  ( oX  t  *  1  i’l) 
bJo  FORMAT  t Xn+ t 24A » 4 t 12 » lux ) ) 

oOl  FORMAT  l Ida# » 1 ' >4 loX» • 1 - i*)) 

/Oo  FORMAT  ( in*  t  llx#  II  »2H'  '  ) 
oOu  FORMAT  t Ioa* • 1 ' >4 t X1X» » I  * ) ) 

900  FORMAT  tiH+»yx»'T') 

XOuO  format  t 1H4  »  9a  »  *  h ' ) 

X  X  u  0  FORMAT  1 1H+ »yx# *  X  * #bx» • I • *bXf4(I2» 10X> > 

1  OoU  FORMAT  llh+#9Xr«C'> 
lbuO  FORMAT  1 1H+ » 9X  *  2MF 
141,0  FORMAT  ( 1M+  » 9 A  »  *  N ' ) 

IbbO  FORMAT  l  1Fi+  *  9X  *  '  E  '  ) 
lboJ  FORMAT  tlFFF»9A»  »S’  ) 

1/O0  FORMAT  t 1H+ t 11A» IX #2H* • ) 

XouU  FORMAT  t  lcIXf  * - 1  •  »4(  - -IM) 

X9uJ  FORMAT  (  lFt+  »  7bA  f  1 1  »  2FI*  *  ) 
tNo 
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APPENDIX  B 

Composite  Material  Data  Collection  Form  Generator  Code 


The  Composite  Material  Data  Collection  Form  Generator  Code  will  generate 
and  print  any  specified  number  of  special  data  collection  forms  for  a  given 
specific  material,  as  exemplified  by  Table  2  of  the  report.  The  number  of 
forms  and  material  names  are  input  by  the  user. 
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(.♦»*♦♦*♦♦*♦♦*♦*♦***♦*♦*******+*♦*♦****♦****♦*♦**♦***♦♦****♦*********♦♦ 

e 

.  e  COMPoSlIE  I  *o  MATERIAL  L)ATA  COLLECTION  FORM  GENERAlOR 

I  4 

i.»»»»»»»*************»*»****+***t*»*+****+**»**++*+********»****+»***+ 

e  lHiS  PRv/GRAM  RANDOMLY  ORDERS  THE  NUMBERS  FROM  1  TO  12  USING  A 

C  JNlFORM  RANDOM  NUMBER  oENeRATOR  *  THEN  CALLS  A  SUBROUTINE  WHICH 

1  e  PRINTS  rORMS  CenTAiNINo  ThL  RANDOMIZED  NUMBERS. 

E 

eOmMUN  /NUmS/  NUM112) *A(12) *  NUMR  ( 12  )  *  NEW  ( 12  ) 

COMMON  /MI/  MAT1 (3) »MAT2l3) 

E 

e  RLaU  THE  NUMBER  OF  FORMS  10  PRINT*  NF  *  AND  THE  RANUU  SEED  X(l). 

C 

READ ( 5 » ouO )  NF*X(1) 

E  EXAMPLE:  COE 

e  123Hbo7a901234bb7a901234bb7B90 

C  uaIa  bob  4b72. 

E 

E 

e  remd  the  material  names  and  the  sample  thicknesses 

E 

REmU l b *  40o  >  MA 1 1  *  l* Al 2  * M T 1  *  MT2 » MT3 
E 

e  example:  col 

E  i234bb7a9012345b78901234bb7a90 

e  DA  I A  E1HAF0AM2  ETHAF0AM4  12  3 

E 

00  lEC  1=1*12 
NUi*i  (  1  )  =  i 

IGo  CONllNUE 

E 

e  oEimEra ve  aimo  print  nf  forms 

E 

O0  3U  0  1  =  1  *  NF 
CALL  RANDU  (  X  *  12  ) 

EALL  SORT ( 12 ) 
nE*(  1)  =  MT1 
NE*(  2)  =  MT1 
NE*(  3)  =  MT1 
NEw  l  4)  =  NT  1 
NE»(  5)  =  wT2 
NE*i(  b)  =  MT2 
nE«*(  7)  =  i«iT2 
NE*(  8)  =  MT2 
nEaI  9)  =  i*i T  3 

NEwIlQ)  =  i*iT3 
NE*(11>  =  I*iT3 
NEm ( 12 )  =  MT3 

00  200  r\  =  l  *  12 
ISUb  =  HUM  IK ) 

NUMKdSUB)  =  New(M 
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LOC  v-GhIImUl. 

C 

C  oEimERATl  htW  KAiML)U  bEEu 

C 

X(l)=X(12)*l. JtH+1.0 
CALL  WHITE 
oOu  CO.V.T1NUL 

WRiTE  (o»bl>0) 
bTuP 
C 

*+0o  *-OKMA7  loA4»3i2) 

JOw  FOkMAT  UH1) 

oOu  FORMAT  l) 

ENU 
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bUbKOi.ll  INC.  SOrtTlN) 

c 

o  bUuKOuUNt  FOR  bORTlNG  N  RANDOM  NUMULRb  IN  AbCtNOING  URoER 

v.  Ai'JU  ARRANGES  TmE  CORRESPOND  1  isjG  THICKNEbSLbr  NUMi  ACCORDING  TO 

v-  TFUb  RANDoMZAIiON  SCHtMt. 

C 

COMMON  /NJMS/  NUMU^)  *A(1«>)  #  NUMR  ( 1<L )  '  Nt  *  ) 

L 

M=im 

loo  COuT INUl. 

M-.-i/i; 

IF  (M.Eu.O)  r<L  t  uRN 

K-l'j-Ni 

b=  i 

fcJo  COiiTiNUL 
l=o 

bOu  COulINUt. 

1I=I+M 

IF  IA(I)  .L.]  .Xlii  J  )  GO  TO  Huu 
F  =  a  l 1 ) 

A(i)=XliI) 

A(il)=F 

NF =NUM l 1 ) 

wUM  i  I  )  =Nl>>  ill) 

NUN  ill) =NF 
i  =  l-  M 

IF  (l*Gt.«l)  GO  To  ,30u 
A(Jo  ^ Oin T  If JUt_ 

J  =  w+1 

IF  (O.ol.r*)  <oU  10  10  J 

oO  TO  i!uC 

LNu 


r  c. 


SUuROUTiNL  WRIIc. 

OEnEKATc  AND  PRiNT  NF  FOKMb 

COMMON  /HUMS/  NUM12)  #A(12)  #  NUMK  ( 12 )  »NEw ( 12 ) 
COMMON  /MT/  Mrtllli) *MAT2<J) 


K=i 

wRiTE 

WRITE 

wRiTE 

wRiTE 

WRiTE 

wRiTE 

WRITE 

WRiTE 

WRITE 

wRiTE 

WRiTE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

wRiTE 

wRiTE 

WRITE 

wRi  Tl 

WRITE 

WRiTE 

WRiTE 

wRiTE 

wRilE 

WKiTt 

WRiTE 

wRiTE 

WRiTE 

wRiTE 

WRiTE 

WRi  TE 

wRiTE 

WRiTE 

WRiTE 

WRiTE 

WRITE 

WRiTE 

wRiTE 

wRiTE 

WRiTE 

WRiTE 

WRiTE 

WRITE 


#  1 00 ) 
#2uC) 

#  300 ) 

» 400 ) 

#  4uO ) 

# 1600) 
» 400 ) 
#buO) 

» 4uO  ) 

»  ibOu ) 

rbuO) 

#7i#0) 

# 1700) 
» 7u0 ) 

#  7o0 ) 
#oo0) 
#l/Oo> 

#  700 ) 

# 900 ) 

#  7o0 ) 

» 1 001) ) 
#1700) 
#700) 

#  llOu) 
#500) 

#  UOu) 
#1700) 

#4uO) 

# 1 jOU ) 
#400) 
#1400) 
#1700) 
» bOO ) 

»  4  o  0  ) 

» lbOo ) 
#400  ) 

# lbOO) 
#l/0o> 

#  bOO ) 

#  7y0 ) 
#1700) 
#700) 
#700) 
#1700) 


mati#maT2 


K»NiAT2U)  » mat 2 (2)  »MAT2<5) 

INOM(l) #1=1,4) 

K# MAT  1(1) #MAT1(2) #MAT1(5) 


NLiMR  ( 1 )  #  NUMR  ( 1 ) 


NUMR ( 2 ) #  NUMR ( 2  > 


NUMR ( J ) # NUMR ( 5 ) 


NUf-'Kl4>  # NUMK  (4) 


NUMR ( b ) #  NUMR ( b ) 

inumi)  #1=5#  aj 


NUMR lb) #  NUMR l o) 


NUMR17) # NUMR (7) 


NUMR (8) #  NUMR ( 6 ) 
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*RiTE 

l  O  9 

700) 

K=k+1 

aRITE 

i  o * 

lbOO  ) 

R»'v‘AT2(l)  »MhT2<2) »MAT2<3) 

ARl  1 1. 

( o » 

7u0 ) 

aRaTE 

( O  r 

1700) 

nUl-R(y)  t  NUMR  ( 9 ) 

aRITE 

( o 

700) 

aRaTE 

( o  # 

ItoOo ) 

R  t  MAT  1(1)  »  MAT  1 ( 2 ) » MAT1 ( 3) 

wRi  TL 

(  O  f 

3o0> 

wRiTt 

lo* 

170u> 

NUMR(lO)  »NUMrUU> 

aRaTE 

( o  # 

4o0) 

aRiTE 

(  O  f 

400) 

aK  i  Tl 

(  09 

170U) 

NUMR  111)  rNUMR(ll) 

aRIIE 

( u  * 

400) 

WRaTE 

( o 

S00) 

UMUMU)  »I=9'1<;) 

ARiTE 

(09 

4o0  ) 

aRaTE 

i 09 

1  /00) 

uUMU2)  t  NUMR  1 12  ) 

aK1  Tl 

( 09 

oo0 ) 

aKa  IE 

( u  * 

700) 

aRaTE 

( u  f 

/o0) 

aRaTL 

(  D 

7o0) 

aRaTE 

(  O 

700) 

K=M1 

ARITE 

i  O 

lbOO) 

R  t  'V'AT2  ( 1 )  »MAT2<2) »MAT2(3) 

aRaTE 

l 09 

700) 

ARiTE 

(  O 

700) 

WRITE 

(  O 

lbOO) 

R  •  i*' AT  1  ( 1 )  *  Mrt  1 1  ( 2 )  » MA  T 1  ( 3 ) 

aRaTE 

( Of 

loOO) 

return 

c 

10o 


FOrMAT  UF»l»2dX»  'COMPOSITE  MATERIALS'  »//<JaX»  » INNER (UUTTOM)  •  ,5X»  »0 
lUTtRtTOP)  '  »//'*:oX»3A4»  T45 »  3A4 » /// *  12X »  '  STRESS  LEVEL:  ' » 15X»  'REPLICA 

tiun :  •  ///l^x » •  ilmheraTukE:  »///) 

M'  »4X»4FI12"  »3X»  *1*  t  4X » 4Hlb '  •  » 
*X  *  •  1  •  ) 

■!•)  ) 


<:0b 

FORMAT 

tlrl  » 

34  A 

» ' LROP  HEloHT • / /20X 

13X» *  I* 

r  4X »  4H24 ' 

* »  3X » ' I' » 4  A »  4h30  * ' » 

30u 

format 

(  loX  > 

• 

—  1  •  »4(  •- - 1 - 

HUv> 

FOrMAT 

l 20X » 

'  1  * 

»  4  t  bX » '1  1»  )  ) 

OOo 

FORMAT 

tlM+» 

2bX 

»4U2»  10X)  ) 

uOU 

format 

l  20a  ' 

•1* 

» 4  l  bX  '  '  1 - 1  »  )  ) 

700 

format 

( 20X  ► 

'I* 

»4<UX»'IM) 

oOu 

format 

l  1H+* 

9X  ' 

»T'> 

90w 

format 

(1H+, 

9X' 

•H’> 

10o0 

format 

1 1H4  » 

9  X' 

'  1  ') 

A  AUO 

format 

(  1H+  t 

9A» 

'CM 

IcoO 

format 

t  lH+» 

9X* lhK) 

1300 

format 

l  lH+» 

9A  » 

'  N '  ) 

IhuO 

FORMAT 

( lH+» 

9X  » 

'EM 

AjuO 

format 

1 1M+ 1 

9a  » 

•S') 

lou  0 

FORMAT 

( loX  » 

t  i  - 

17o0 

FORMAT 

llH+r 

69X» 1 1 » 3H  -  'll) 

lbOO 

format 

l lh+» 

6X» 1 1 »  3H' ' - »  3A4 ) 

ENu 

1*  )  ) 
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APPENDIX  C 

Analysis  of  Variance  Code 
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The  main  driver  of  this  code  establishes  dimensions,  reads  the  input 
data,  and  calls  the  split-split  plot  analysis  of  variance  UNIVAC  STAT-PACK 


program  ANOSSP  as  a  subroutine. 

The  following  is  a  description  of  the  necessary  input  parameters  and 
floating  point  arrays  that  are  created  in  ANOSSP. 


Y 

is  a  NI  by  NJ  by  NK  by  NL, 
four-dimensional  array  of 
observations. 

floating-point  array; 
input 

NI 

is  the  number  of  main  treat¬ 
ment  factor  A  levels. 

FORTRAN  integer; 
i  nput 

NJ 

is  the  number  of  subtreatment 
factor  B  levels. 

FORTRAN  integer; 
input 

NK 

is  the  number  of  subtreatment 
factor  C  levels. 

FORTRAN  integer; 
input 

NL 

is  the  number  of  replications 
per  experimental  cell,  NL  >  1. 

FORTRAN  integer; 
input 

SS 

is  a  12-element  array  contain¬ 
ing  sums  of  squares. 

floating-point  array; 
output 

IDF 

is  a  12-element  array  contain¬ 
ing  degrees  of  freedom. 

FORTRAN  integer  array; 
output 

F 

is  a  10-element  array  contain¬ 
ing  F-statistics. 

floating-point  array; 
output 

PF 

is  a  10-element  array  contain¬ 
ing  probabilities  that  the 
F-statistics  are  exceeded. 

floating-point  array; 
output 

YMNSQ 

is  a  11-element  array  contain¬ 
ing  mean  squares. 

floating-point  array; 
output 

The  above  five  arrays  are  ordered  as  follows: 


In  program  execution,  ANOSSP  employs  the  logic  given  below: 

(1)  Sum  the  observations  for  the  grand  total,  factor  level  sums,  and 
cross  level  sums. 
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(2)  Divide  grand  total  by  the  number  of  observations  to  obtain  grand 
mean. 

(3)  Calculate  factor  A  level  means,  estimates  of  effects,  and  sum  of 
squares. 

(4)  Calculate  factor  B  level  means,  estimates  of  effects,  and  sum  of 
squares. 

(5)  Calculate  factor  C  level  means,  estimates  of  effects,  and  sum  of 
squares. 

(6)  Calculate  replication  level  means,  and  sum  of  squares. 

(7)  Process  the  first  order  interaction  parameters. 

(8)  Calculate  AxB  interaction  level  means,  estimates  of  effects  and  sum 
of  squares. 

(9)  Calculate  AxC  interaction  level  means,  estimates  of  effects  and  sum 
of  squares. 

(10)  Calculate  Ax  replication  interaction  level  means  and  sum  of  squares 
for  Error  (A). 

(11)  Calculate  BxC  interaction  level  means,  estimates  of  effects  and  sum 
of  squares. 

(12)  Calculate  the  Bx  replication  interaction  level  means,  and  sum  of 
squares  for  one  component  of  Error  (B). 

(13)  Process  the  second  order  interaction  parameters. 

(14)  Calculate  the  AxBxC  interaction  level  means,  estimates  of  effects, 
and  sum  of  squares. 

(15)  Calculate  the  AxBx  replication  interaction  level  means  and  sum  of 
squares  for  the  second  component  of  Error  (B). 

(16)  Multiply  each  source's  sum  of  squares  by  an  appropriate  factor  to 
obtain  the  final  sum  of  squares. 

(17)  Compute  total  sum  of  squares,  the  residuals,  and  the  residual  sum 
of  squares. 

(18)  Subtract  the  replication.  Error  (A),  and  Error  (B)  sum  of  squares 
from  the  residual  sum  of  squares  to  obtain  Error  (C)  sum  of  squares. 

(19)  5et  up  the  degrees  of  freedom. 

(20)  Set  up  the  mean  squares. 
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(21)  Divide  each  source's  mean  square  by  the  appropriate  error  mean 
square  tenm  in  each  Error  (C),  Error  (B),  or  Error  (A)  group  to 
obtain  the  F-statistics. 

(22)  Call  FISH  to  calculate  the  probabilities  that  the  F-statistics 
are  exceeded.  FISH  is  a  required  subprogram  but  other  sub¬ 
programs  which  compute  F-statisitcs  can  be  utilized. 


c 

u  PnOu>kAi»i  ubFb  bTAT- PAck  KOuTlNE  ANObSP  (bPLlT-bPLlT  PLOT  DESIGN) 

Tu  CALuUi_ATL  MILADY  blS  OF  VaKI ANCE  ON  uUbHlONlNG  MATLkIaL 
v.  JAIA  UbANb  Ni  bTKLbS  LLVEi_b»  3  THICKnEbbESr  3  T EMPlKa  1  UkES r  AND 

v.  b  kEPLICAT aONS. 

L 


c 

FArvANE  I  <-K  ul=ib» NJ=3 » Nk~5 ►  Nu-3 » I SUM4=24 t  APKOD=Lbb 
u  1SvjM4  lb  .<1  +i J J  +  uN  +  Ul. 

u  lPkOL1  lb  l  {  NI  +i )  *  (  nJ+1 )  *  (NK  +  1 ) -1 ) 

uIMENSIuN  Y (NI»NJ»NK»NL) *bS(l2) » IDF (12) »F(12) »PF( 12) »  rViNS0(12)  * 

1  ALPHA  ( IPKOL  )  »  Yl-TMWl  1SUM4  )  *  r  iv,u I L  ( N 1 ,  NL )  »  r  MNJL  ( NJ .  NL  )  *  YMNI  J(NI  »NJ>  t 
LI'MaoL(NA»NJ»NL)  •  Y'-UJK(wI  tuJ,NK)  *  YMNI  K  (  NI  »  Ni\  )  »  YMNJK  l  Nj  t  Nk  )  t 
jK  (i<i  *  N>j  »  NK  t  NL  ) 

Ml-Nl 
»V1  sj  —  1 1  %J 
MK=NK 

t  JHuKE  lb  a  SlPmP  A  f  E  CAkO  F  Ok  EACH  DATA  bHELT.  LOOPb  FKOM  IivblHE 

v.  OU I  Aki_  TEMPEK«TuI'E>  TnlCKNLbb»  REPLICATION*  Ai*D  STRc.bb. 

v»  iNPUT  FuK.'iaT  lb  FREE  FieLli. 

L/O  110  A  =  1  *  N 1 
uO  A  ub  l.  —  1  *  NL 

KEau(5»a0oo)  l  l  Y  (IfJfKrL)  >Kbl*NK)  t  J—  1 1  N«j ) 
i  J d  cOhT  li iUl 
iiu  LOnTINUl. 

lAlL  AN  ob  bt-  (  Y  t  i'll  r  N  J  >  NK  *  NL  *  bb  *  I  JF  »  F  f  PK  t  T  MNbvJ  *  ALPHA  *  Y  F  T  Pit )  r  YMNI L  * 
a  f  Mi  i  JL  t  Y  ,«u\i  o  •  YMAOL  •  YMEAN  t  YmIuK  »  YMN  IK  »YMnJK»1EKP'5>13u»K*M1»MJ»MK) 
v-  *F(  A  T  L  OUTPUT 

kKa  TE (o* lVoO)  l ( ( ( Y ( I *u*K*L) *K=1*NK) » J=1*NJ) *L=1 »NL>  r  a  =  1»N1 ) 

111  kHaIUo^OoO)  Urbbl  I)  » IDF  1 1)  »YMNSOl  1 )  »F  1 1)  rPFl  I )  » I  =  lf  12) 

*KaTE  (o*2J10  )  YMEAN  f  (  ALPHA  (  1)  •  1  =  1  r  IPKOu) 

»K1TE(d^20«aO)  l  l  (  ( K  ( I  #  J »  k  »  L  )  tL-1 1  NL  )  r  k  =  1  «  Nk  )  >  J=  1 *  NJ )  1 1  =  1 *  NI ) 

*ki  TL  (b»2UbO)  l)FTMN(I)  *  1  =  1  *  aSUM4  ) 

aKaTE (o*2040)  l ( Y  MnIL ( i t L ) * L=i t NL ) » 1  =  1 » NI ) 

«H1  TE(o»20b0)  UYF’NJLl J»L)  »u=l»NL)  *J=1*NJ) 

*KaTE(o*2UoO)  V  (Yl'NlJl  if  J)  »J=1»  NJ  )ri=l*Nl) 
aRaTE(o*2o/0)  l  l  (  YvIuL( 1 , J*L)  ,L=1»NL)  * J=l*Nu)  tI=l»NI) 
kKA  TE(o»2Go0  )  (  UYiv'lJK(  1 »  J»K)  r  K=1  »NK)  »  J=1  »NJ)  »  I  =  1»NI ) 
kHaTE(o»LIjvO)  l  l  T  I’Nl  K  ( 1  f  K  )  r  K  =  1 »  Nk  )>l  =  lfNl) 
rtHiTE(o»2luOJ  (IY  Mn  jk  (  d  »  K  )  t  r\—  1 »  NK  )  *  J- 1  r  >4  J ) 
bTuP 

aJO  rtHITE  (l>»2aa0)  Ac.Kk 
oO  TO  lLU 
c  FOf\MATb 

ILiOo  FOKMAT  (  ) 

AVJo  FOKMATUH  »Pl14«o) 

2u0o  FOkMAT (»1  i,»2A»*bUMS  JF  bNUAPEb • » OX » 1 JF b * » bX f  *  MEAN  buUAREb'*5X* 
i »F -bT AT lbT  a Cb* OX  » ’PROu.GT .F'/(lX»I2.2x.Llb.6*JX*Ib»2X»Ll5.b»2X» 
LElb»b*2A»Llb«o) ) 

Lulu  Fui\kAT  (  ’  OmKPAY  OF  (jRANu  Mem,,  AnD  EFFLC  I  b ’ /  ( 1 X  t  9E 14 •  o )  ) 
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..uLo  F  OrmAT  ( *  OKLSlOORLb»/9Xr  'RlPliCATL  1  •  t  9a  r  •  KLPL 1CA  TE  2**9A* 
x  ' RlPlICATL  3'  /  l‘JA»tlb.t>»  bX»Llb.b#  bX»L  Ib.b)  ) 

^uJO  FORMAT  (  '  OF  mCTOK  Ll  VtL  MLAlMb*  /  ( 1X»  9L14  .u)  ) 

L04o  NhMAH  'ObIRtbb  Ll  vLL  A  RLPLlCATlONb*  /  ( lAOtl5.b)  ) 

20JU  FOkMAT(  •OlhltRNLbb  X  RLPLICaT IONb' / ( iX* 3Llb.o> ) 

L«Jb  J  FOkMAT( • JblRtbb  LL  VtL  A  ThicKNLSb'/(lX»3Llb.t>)  ) 
tlu/o  FORMAT l ’OblRLbb  LLVLL  A  UUONLSS  X  KfPL  IC  AT  I  Oub  *  /  ( IX » t>L  15 .  b  )  ) 
^ObO  FOkMATI 'OblRtbb  LLvLl  X  UUoRNtbb  X  1  LMPLKmTURL  •  /  ( 1 X  t  uL  l  b .  b )  ) 
r.'u9o  FORMAT (  •  Obi Ktbb  Ll  U  L  A  TlMhLRATURL  *  /  ( 1 A  »  iLlb.o)  ) 

FORMAT  l  'OlhlLMMLbb  X  TlMPLRa  1  URL  »  /  (  i  A  »  OL  1  b .  o  )  ) 
clilo  FORMAT  (  *Ot.RKOK  LX±1  FROM  bUoROUT 1NL »  ItKK  = 
lNu 
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^UuKOUT  iNe  FOk  A  bPLIT  SPLIT  PLOT  ULbloN  ANALYSIS  OF  VARIANCE 

SUbKOUl  1NL  ANOSSF  (  Y  .  Ni  ,  N  J  •  NK  *  NL  >  SS  »  IDF  ,  F  t  PF  »  YmNSQ  »  ALPHA  »  YFTMN  t 
1  YMwlL  t  tHNJLf  YMN1  J»  YMIJl»  YMLANf  YMlJKr  YMiglK»  YKfJJKr  IEkK»S>»K» 

t>il  »  MJ  t  Nirs. ) 

OIMlNSIoN  Y *ss(l) » IDF( 1 ) »F ( 1) »PF(1) » YMNSUt 1) • ALPHA ll)r 
1YF  i  i“lN  ( 1  i  ,  1>iNIL  MI  •  1)  ,  YMNJL(mJ>  1 )  •  YMN 1 J ( Mi r  i  )  »  YMI JL ( MI » MJ » 1 )  , 

^  Y  M 1 UK l  M  A  »  Mo  » 1 ) * YMNlKtMl , 1 ) #  YMNJK(MJ» 1 )  »  K  l  M 1  »  M  J »  MR  ,  1 ) 


INI  1 1  ALIZmI IONS 

XN1— hi 
XNo-NJ 
aNn-NK 
aNl=NL 
NIo-M+nJ 
N 1  uR  =  N  1  «j  +  NR 
lMluKL=NiJK  +  NL 
SL)UMt>  — 0 . 

XOa J=Xhl*AhJ 
AL)lR  =  Xhi*XNR 
AL/iL-XUi*AhL 
ADJR=XNJ*XhR 
aDKL=XNK*ANL 
AL)oL-XNo*  ANL 
AUa JR=Xul J*XNR 
AUoRL  =  XuJR*XNi. 
aU1NL=Xu1r*XNl 
AUa  JL=Xul  J*XNl 
00  1  1  =  1 »  AO 
1  SSI i )=0. 

uO  d  I- A  » NI JKl 

<-  X  F  I  (  A  )  -0  • 

uO  S  1=1 t Ni 
00  S  J-l  r  Nv/ 

UU  4  R=l»hR 
u 0  0  L=i>NL 
I  Ml JL ( 1 • J »  L  >  =0 . 
YMhJLI Jr l)=o. 

J  YMhlL(l»L)=0. 

Y  M  a  JR  (lrJ»N)=U« 

Y  MuJR l w  t K ) -0 • 

*  1  MimIr  (  1 1  R  )  =0  . 

J  YMNlo( 1 t j)=0. 

1  Me  AIm-0  • 

utolN  SUMM1NO  LeVLLS 


uO  40  1  —  1 » (■<  I 
UO  00  J=1>NJ 
UO  lO  K-l t NK 


Dv  VO  L-  1 1  ImL 

TMNOK.(»J*t\)  —  YMNJN(D#N)  f  Y  (1*J*K»L) 

YMn  1 l\  l  1  •  K  )  L  YMN  its  li»K)+YlI*D»h.»l.) 

YMmLll  »L)iYMNlc  I  i  »L)  +  Y  (I  *  J,N»U 
I  Mi<JL  (  O »  L  )  -  Y MNUc.  t O 1  L  )  ♦  Y  (  1  •  o  t  K  •  L  ) 

YMw1d(  l»J)-YMuiJ<ifJ)*-Y(l»J»KfL) 

Y  M 1  JL ( 1*D»L)-YM1 OL ( 1»J#l)+Y ( 1  >  0  *  K  f  L  ) 
YMauM1»0»k>-VM1jKi1»J#K)+Y(1»0*A»L) 
TFIMMMJK*L)=YPTMN(N1JK+L)*yF1»0»K*L) 

Y  F  I  MN  (NiO  +  K)— YF  I  MN  (NIJ+kF+YMI  OK  (  1  t  O  t  K  ) 

Y  F  I  MU  ( iNi  1  ♦  vJ )  =  Y  V  i  MN  l N 1 P J ) +  Y  MN i 0  U  »  J ) 

YF1MNU  )=YF  TMM  V  )  +  YMNlo  l  1  •  J  ) 

YMlAN-Ym£Anp  y  F  I  MINI  U  ) 

uRaNU  ml  an 

YMLANrYMLAN/XiJAvJ/XuKL 

cOmPUTL  FacTOK  MLANS  An4t»  LA f  LC 1  b »  THLN  FACTOR  bUMS  OF  SOUAHtS 

FACTOR  a  LLVLL  Mt>v(Mb*  L  F  F  L  C  T  b  *  AND  bb 

oO  bU  1-1  *  N I 

YF 1MN( 1 ) =  Y  F  TMN i 1 ) / XUJKl 

ALPHA  (  1  )  =U  T Mim  l  i  )  -Y  MLAiM 

bbll  )-bbU  ) +ALFHA(  1  )  *ALF’HAl  l ) 

FAcTOR  i>  LiVlL  MLAUb»  LFF'Lclb*  AND  bb 

uO  bb  0-  1  • 

YF  I  Mh<Nl+  J)  =YF  I  MN(N1  ♦  J)  /XDlM. 

ALPHA  (N1  f  J)  =YF  I  MN  IfJl  +J)  -YMlmN 

bb  t  a) -bb ( 4 ) ♦AcPMA  Vwl ♦ J) * ALPHA  V  N 1 ♦ J) 

h AC  FOR  c  LlVLL  MtANb*  LFFlC I b»  AND  bb 

**♦♦♦*♦*♦***♦♦*♦♦♦*♦♦»♦♦♦♦♦♦♦♦♦*♦*♦*♦♦♦♦♦♦**♦*♦*♦♦♦*♦*♦**♦♦♦*' 

uO  t>0  K-1*NK 

Y  F I MN l  N 1 J  ♦  N  )  -  I  F 1 MN ( N I J  +  K ) / XU 1 OL 
ALPHA  l N 1 J*  K )  -  H  I MNin10pk)->mlAN 

bb  if)  -  bb  (  /)  ♦  ALPHA  F  Nl  J  +  N  )  *AiD  iiAINIJpM 

ALPLICA  1  ION  LlVLL  iML.ANb  AND  bb 
DO  ob  L- 1  * nL 

f  F  I  MN  <  N1 JN  *L  )-)!-)  MN  (NIOK+l)  /xDl  JK 
bbd  >-bbd  )  ♦  l  t  F  T  MN  i  Nj  jk  4  L )  -YMLAN  )  ♦  ♦  D 

FlubT  OKDLK  INIlRALTIOn  LlVlL  MtANb»  FFFtClb  AND  bb 

DO  UO  1-lrNl 

***♦*♦♦*♦**♦♦**♦♦♦++*♦***♦♦**♦+♦♦♦♦♦♦**♦*♦♦♦♦**+♦*♦**♦♦****♦+> 

FAcIoR  A  X  R  INFRACTION  LlVLL  Ml  ANb »  lFFLCTS*  AND  bb 


c 

C 

C 


C 

C 

c 


c 

C 

c 


L 

c 

c 


c 

c 

c 


c 

C 

c 


L 

L 

t 


i»********+, 

dO  70  u-1 • NJ 

YMimIUI  1  *  J)-YM,«UJ(  1  t  J)  /aUKL 
imOUM=N1  JR  +  l  I-l )  *NU  + J 

hLPNA  INUUM)  =  YMim1  J  1 1  *  J)  -  YF  TMMI)  -YF7  MU  (  im  I  +  J )  ♦  YMlAN 
7  0  SSlb)=Sb(b)+ALPHA  llMDUM)  *Ai_Pma  INDUM) 

FAclUR  A  A  C  INTERACTION  LtVcL  MEANS*  dFFECTS*  AND  Sb 

DO  7b  K-1»NK 

YIMimIK  (  1  *M=YMN1K  l  1  »M  /aIJDl 
imUoM^NI  JK+Nl*NJ+  l  I-l )  *NK  +  K 

ALPHA  (NDUM)  =YMNlK  ( i *K) -YF  TMh( 1 )  -YF  TMU(n1 J  +  K  )  + YMLAN 
7b  SS ( b ) =bb ( b)  +  ALPHA  l  NDUM)  * ALPHA  ( NDUM ) 

FACTOR  «  A  RtPLiCAIloN  LEVLu  ML ANb  FOR  lRROR(A)  bb 

UO  bU  L— 1 * NL 

YMulL 1 1 *  L ) -YMN AL ( 1 *  L ) /aUDK 

bO  bblb  )=sblb  )  -M  YMUlL ( I  *  L ) - YFTMN ( I ) -YFTMN ( NI JK  +  L ) +YMEAN) **2 
uO  90  D-1»NJ 

FACTOR  D  a  C  IhILKACTIoN  LLveL  MEANS *  lFFEcTS*  AND  Sb 
UO  bb  K-lrNK 

YMnjK  (d»K)-YM/JDK  (J*K)/XDlL 
NUUM=N1 JK+NI*NJ+Nl *NK  + ( J-l )  *NK  +  K 

ALPHA  (NdUM)=YMNJK  l  J»K>-YFTMN(N1+J)-YFTMN(N1  J+K)  + YMlAN 
ob  bb  19 )  =Sb  (  9)  +  ALPHA  ( NDUM) * AlPhA (NDUM) 

FACTOR  u  A  RLPLiCAUoN  lEVlL  MEANS*  ANu  bb  FOR  ERROR  ( b )  SS 

DO  90  L-l  * NL 

YMwuL ( J*L)=YMNJlId*L) /XDlK 

90  bUUMo— SJUMd+  (  IMNJL  ( J*L) -YF 1  KN  l N I  -F  J )  - YF  T MN ( IM  1 JK +L )  +YMLAN)  **2 

SECOND  ORcLR  INTERACTION  CEVlL  MEANS *  lFFECTS*  AND  Sb 

UO  110  1=1*NI 
UO  110  J-l * N J 

FACTOR  A  X  R  X  C  lNTERACl ION  LEVEL  MEANS*  LFFEcTb*  AND  SS 
DO  100  i\  =  l*NK 

YMiJMI*J*K)=Yi*.lJMi*  J*K>/XimL 

NUuM-N1jKFhI*NJ  +  N1*Nk  +  NJ*Ni\+  (  I-l  )  *NJ*NRF  (  J-l  )  *hK+K 

ALPHA <NuUM)=YMiJK< 1  * J * K ) -YMM J ( I  * J) -YMN1K ( 1  * K ) - YMNJK ( J * K ) ♦ YF TMN ( I ) 
1  ♦  Yh  T HN  (  N I  +  o )  +  YF  1  NiMNI  J  +  R  ) -YmlAN 
10c  bS  ( 1  0  )  =bb  ( 10  )  ♦  ALPHA  (  NDUM )  *AlPFIA  INUUM  ) 

FACTOR  A  X  F3  X  REPLICATION  LEVEL  MEANS  ANU  SS  FOR  ERROR  ( B ) 
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nr  r  r  r 


uO  110  u=l»NL 

YM*UL( 1 # J»L)=YMi JL  ( 1 ,  J»L)  /XNK 

llo  bblo)=SbloJ+l  YMiJUI*  J»L)-YMn1J(1»u)-YmN1L(  I  r L ) -YMNJL l J , L ) +YFTMN ( I 
1 )  +KKTMnlNi  +  J)  ♦  YFTI''  N  l N 1 JK  +  L)  -  Y  ML  AN )  **2 

MUlT 1PLY  Sb  uY  CoKKLCT  FALToK  TO  OUTaIN  bUMb  OH  SQUAKLS 

bSU0)=SSU0)*XNL 
bSl9>=Sbl9)*XUAL 
bS  l  0 )  -Sb  (O)  *XUUL 
SS17)=SS(7)*XI)1JL 
bb(o)=Sb(u)  *X^A  +  Sl'UMt>*A[jlK 
bSlb)=Sb(b)  *XUI\L 
bbl4)=Sb(4j  *Xull\L 
bblh  >=SSlb  )*XUjrv 
bb  12  )=bS  It  )*Aulur, 

bSll  )=bbll  ) *AUJNL 

lOmPUTL  TOIAL  b<JM  OF  SuUAKLb#  RESIUUALb»  AND  ThE  RESIDUAL  bS 

UO  140  i=l»NI 
UO  140  J=1»NJ 
UO  140  K=i»NK 
UO  140  L=1»NL 

SSll2)=bSU2>  +  (r  ( I  - Y  Mt  AN )  **2 

LAlL  OVc-RFL  IILHH) 

IF  (lEKK.Lu.l)  uO  TO  9y 

KEbiDUALb 

i*UUM=  NiJK+I*NJ-NU+J 

NDuMl=Ni JK+N1*nJ+1*NK-NK+K 

R(l*J»h»L)-Y(l»U*K»L) -Y ML AN- ALPHA ( I ) -ALPHA l NI ♦ J ) -ALPHA ( Nl J+K ) - 
1 ALPHA l NuUM ) -ALPHA ( NDUMl ) 

NDUM=  Nl  JK  +  NI*lMJ+Ni*NK+J*NK-NK  +  K 

NUUMlrNA  JN  +  NI  *NJ-H'U*NK  +  N<J*NK  +  I*NJ*NK-NJ  +  NK  + J*NK-NK  +  K 
RU»J»K»L)=R(1»J»K»L)  -ALPHA  l  NDUM )  -ALPHm  ( NUUM  1 ) 

KLb i UUAl  bb 

A  AO  bSUl)=bSlll  >  +K(  1  *UrK»L)  *K(  1  » J»K»L) 

LRkOR(L)  bb  lb  RLblDUAL  Sb  LLSb  L(B)  Sb  LLoS  E ( A )  bS  LESS  HEP  SS 
bb( 11 )  =bS  ( 11 ) -Sb ( 6 ) — SS (i) -Sb ( 2 ) 
bL  I  UP  uLuKLt-b  OF  FREEuoM 


1UF  ( 12  )  =Nl*NJ*Ni\*NL— 1 
iuc (ll)=Nl*Nd+(NK-l)*(NL-l) 
AUH  U0>  =  (N1-1)*INJ-1)*(NK-1) 
IDF  <9>=lNU-l)  *  i  -1 ) 
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iur  (o)  =  llu-l)*l.^-l) 

IL'F  (7)=UK-a 

ID*-  (u)=wi*(NJ-l)*<hL-l) 
iDt-  li>)-lNl-l)*(HJ“i) 

IDF  (  H  ) 

iUh  lb  >-lui-l)MNL-l) 
lUMd  )-NL-l 
lord  )  — Nl  — 1 

bL  I  UP  i»iLAU  SuUAKC  b> 

.»  +  *»**, 

uu  ibO  i=l#ll 
ljo  YMi\.bu(I)=bb(l)/iUF  (I) 

COi-.PUTt  F-bTAllbTlCb  And  PKuuAbILIT IlS  F-blATS  EXCEEDED 
cKkOK(l)  okOUp 


Ld>  ibO  1=7 » Id 
F<i)=yMt«Sum/YMNbw(ll) 

Call  dvlhk  Ul*r> 

IF  l  IEKk.lO.  1 )  v»o  TO  99 
luO  PF  <  1  >  =  1.-F  ISHlF  ID  , IoF ( I ) > L0F < 11) ) 


7<j 


uO  170  i=A»5 
F  ( 1 )  =YMl»bO  l I  )  / lMNbo(6> 

CAlL  UVLHK  (ILrtK) 

IF  l  1FKk.lv>  •  1 )  uO  10  99 
PF  11  >=l.-FlSh(F  U)  »IQFID  *  luF  <6>  ) 
***********«*****+***< 
lKi\OK(A)  FoR  FaCTCK  a 


F(i)=YNiHbull)/YM>*by(b) 

CALL  UVoh*\  (1lKK> 
iF  llEKrt.c.u»l)  uO  TO  99 
PF  ll)=l.-F IShlF  ID  »10F11)  » luM3)  ) 
rtt lUKh 
9*  KLtUKIM  1 
LNu 
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APPENDIX  D 
Data  Analysis  Code 
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The  main  driver  of  this  code  reads  the  data,  initializes  arrays,  and 
calls  the  outlier  (OUTLR)  and  curvilinear  regression  (CVREG)  subroutines. 
Subroutine  SORT  is  utilized  in  locating  the  set  of  replications  having  the 
largest  sample  variance  in  the  OUTLR  subroutine.  This  criterion  for  rejec¬ 
tion  of  outlying  observations  is  explained  in  detail  in  the  Outlier  Detec¬ 
tion  section  of  this  report.  This  code  and  the  code  contained  in  Appendix  E 
assume  that  the  input  data  is  sorted  ascending,  by  temperature,  then  by 
thickness,  then  by  stress-level,  and  finally  by  replication. 


c 

C  0/\TA  ANALYSIS  PROGRAM 

c 

C ***********************************************************  *********** 

c 

c 

C  MAIN  DRIVER  READS  THE  CUSHION  MATERIAL  DATA  RECORD  CONSISTING  OF 

C  TEMPERATURE#  DROP  height#  thickness#  SlRESS-LEVEL#  g-value# 

C  REPLICATION  AND  MATERIAL  TYPE  ( In  THIS  ORDER). 

C  INITIALIZES  ARRAYS  CALL  OUTLK  (OUTLIER  SUBPROGRAM)#  AND  CALLS 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CVkEG  (CURVILINEAR  REGRESSION  SUBPROGRAM). 

YHc.  OUTPUT  IS  IN  THE  FORM  OF: 

FOR  A  PARTICULAR 

1.  DROP  HEIGH) .TEMPERATURE# AND  MATERIAL  THICKNESS  A 
TABLE  CONTAINING  l HE  STRESS  LEVELS  AND  G-VALUtS# 

AND  ANY  POINT  THAT  *AS  REJECTEu  BY  OUTLR  IS  ALSO  LISTED. 

2.  THE  F  -  STATISTIC  AND  THE  FIRST.  SECOND#  THlRu  AND 
FOURTH  DEGREE  POLYNOMIAL  COEFFICIENTS  ARE  LISTED. 


{,********************************************************************** 
DIMENSION  STR(75) »  G(7b>#  AlPH(3)»  X(7b) 

DIMENSION  COEF(10>»  Yll7S)»  SlGHAT(4) 

DIMENSION  XNE*(7b>»  YNEW (7b) 

DIMENSION  BK(b»4) 

REWIND  12 
KNI=0 
IFLAG=0 
KFLAG=Q 
GO  TO  200 
100  KNT=1 

GO  TO  300 

200  READ (  b# 17oO#END=4oO)  A1 # A2 , A3 # A4 # Ab # Ao # ( ALPH ( I ) # 1=1 # 3 ) 
IF(KNT.E0.0)UTu=a3 
IF  (A3.NE.  DTU  )  Go  TO  500 
rNT=KNT+1 
30U  TEMP=A1 
DHT=A2 
THCK=A3 
DTD  -  A3 
STR (KNT ) =A4 
G(KNT)=A5 
REP=A6 
GO  TO  200 
40o  IFLAG^l 
SOU  NPTS=KNT 

DO  600  i=l»NPTS 
X ( 1 )  =  ALUb(100.*STR(I) ) 

O00  CONTINUE 


wRift.  luribOO)  ALHh»UHI,  TlMH^THCK 
wRiTt  io»iyoo) 

1  =  1 

i  T  c_i»ip=NPT  i 

/Ou  IF  (I.GT.iIEmP)  go  TO  10  Jo 

IP  (Sr*<lI).EQ.i>lH<l  +  l>.AND.:aTR<I+l).dQ.STK<l*2)  )  GO  TO  900 
IF  ISTMI)  .EQ.sTKd  +  l)  )  GO  To  80u 
WHITE  lo»2lP0>  bTH(I) »X(I) »G(I) 

l\P  LAG-1 
1  =  1  +  1 
GO  TO  7oU 

oOu  wKllL  (ui^Ou)  bTMI)  »bTR(l  +  l>  »X(I)  »X(1  +  1)  ,G(I>  *0(1  +  1) 
hFlAG=1 


1  =  1  +  2 
GO  TO  700 

9Qu  wHllE  (o*2u0u)  bTK ( i ) * bTR ( I  +  1 > * STR ( 1  +  2 ) , X ( 1 ) *  X ( I  +  1 ) * X <1  +  2 ) * G ( I ) * G ( 
li+i) *  G 1 1  +  2 ) 

1  =  1  +  3 
GO  TO  7oU 
iOUJ  COhTINUl 

CALL  OUTLK  (NPIb*XrG*Ntl*Pl:>,XNLW*  YNLw) 


DO  lu70  Its  =  1 * NEwPTS 
XNt.w(lK)=X(lK) 
YNLw(IK)  =  611M 


*0  70  COnTINUl 

14 1  —  0 


iluO  H  1  —  IM  I  +  1 


v-All  CVKlo  ( Nl  *  Nt^PTS*  XNEw  *  YNEw  * DEGRt  *  COEF  ) 


bloHAT (NI ) =0 • 

L  POLYNOMIAL  CALCULATION 

uO  1200  1  =  1* NL  wPT b 
T1U)  =CoLF  1 1 )  +COEF  (2 )  *ANtw  1 1 ) 

IF  INI  .u.t)Yl  (i)=Yl  (D-t-COLP  (3>*XNE*(l)++2 
IF  INI.  to.  3)  Y I  li)=Yl(D+cOLF(4)wXNEw(l)**3 
lFlNl.Lv>i.4)Yl(l)=YHl)+cOLFlb)*XNEw(I)*W4 
bluHAT (Nl )=S1oMAT (Nl )+IYNlW ( I ) -Y I ( I ) ) **2 
IloO  COnTINUL 

uO  HbO  K=l*b 
llbO  bKlK»Nl)  =  COLFlK) 


uFlNLWPIS-nI-1 
b  1  oHAT  l  Nl )  —  S lotlAT  Ti.1)/oF 
IF  (Nl.oT.l)  oO  TO  130u 
GO  TO  li.00 

OuO  F=«bb(  (blohATliMl-l)-SloHAI  (nl)  >/bI6HATlNl>  ) 

IF  INI  .tu.4)F=AL»b(  (SIGHaT  (2>-blGHAT(4>  )/SlGHAT  W)  ) 


Nll=Nl-i 

wHilt  (o*lo00)  F  *  1 ,  SigHAT  (Nl  I )  * Nl » SIoHAT  TNI ) 

IF  l N I  •  l.  T  » 4 )  GO  To  HOu 
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#Rx  ft  (  12)  uEwPIs 

*KlTE<l2)  uHT»  I  EMP  t  ThCa  ,  (ALrh(II)  *  1 1  =  1  •  2 )  •  (  ( BK  ( KK  t  JJ)  »KK=l»b)  t 
i  JJ-1*4)»  ( X  (LL )  » LL-A  c  NEwPTS )  •  ( T (LL) »LL=1 *NEWP IS) 

AhoG  IF  ( I FLAO • EO  •  1 )  QO  TO  lbOO 
GO  TO  luO 
iooj  1P1  =  99999 
uRiltllt)  1PT 
bTuP 
C 

louO  FORMAT  l  /  /  /  2  X  »  '  F  -•  »Elb.8»DA»  'bib' » Il»  'SO  =  '  *  El5. 8 »  bX »  *  SIG  •  1 1 1 ,  *  SQ 
a  ='  *Eia«ti) 

A7o  0  F  OrMAT  l3H0.U»FlO.2»2f-lo.u*UX»3A4) 

AouJ  F  orMAT  l  IHa  »  3A4 »  •  *  DROP  htichT  OF  •  » F  b .  1 1  2H  •  *  »  *  t  TEMPERATURE  *»F6.1 
a  *  '  F  »  THlCKNESb*rF4.1,2H* •) 

19«0  FORMAT  11H  .BX* 'bTRESS  LEVcLb’ #21X» 'LN(100*bTRe.SS  LEVlLS) • >25X»3HG 
1»S) 

2000  FORMAT  11H  »3l3Fl0.4»5x) ) 

2lu0  l-ORMAT  1  1m  .  3 (F 10 • 4  »  25a  )  ) 

4200  format  um  *3i2Fio.4.ibx) ) 
lND 
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SUbKOUT iNE  OUTLK  (NPTS,  X  •  Y  r  nEWPTS*  XNEW  t  YNE*  ) 

C**** **********************************  ******************************** 

c 

c  outlier  point  rejection  subprogram 

c 

<.**** ********************************************************  ********** 

C  METHOD  bASED  ON  THE  NAIR  CRITERION  (AN  EXTENSION  OF  THE 
C  EXTREME  STUDENTIZED  DEVIATE  FROM  THE  SAMPLE  MEAN). 

C 

C  FOR  THE  SET  OF  OBSERVATIONS  HAVING  THE  LARGEST  VARIANCE 

C  EACH  OBSERVATION  OF  THE  SET  IS  TESTED  INDIVIDUALLY  AS  A 

C  CANDIDATE  FOR  REJECTION  AS  aN  OUTLIER. 

C 

C ***********************************************************  *********** 

DIMENSION  A  ( 1 )  >  Y(l)'  XNEW(1)»  YNEW(l)'  XA125)»  XB(25)»  XC(25)*  YA 
1 (2b) »  YB(2S)»  YC (25) »  YMEAN(25) »  S2N(2b)»  KEY<25) 

TESTV  =  1 .66 
DO  100  1  =  1 » 25 
100  KEY ( I ) =0 

NTEMP=NPTS-2 
L=1 
1  =  1 

200  CONTINUE 
J=l+1 
K=l+2 

IF  (I.GT.NTEMP)  GO  TO  500 
IF  (X(J) .NE.X(K) )  GO  TO  400 
IF  (X(I) .NE.XIJ) )  GO  TO  300 
XA (L ) =X ( I ) 

XB(L)=X(J) 

AC (L)=X(K) 

YA(L)=Y( I ) 

YB(L)=Y(J) 

YC (L) =Y (K) 

KEY (L) =0 
L=L+1 
1  =  1+3 
GO  TO  200 
300  CONTINUE 
1  =  1  +  1 
GO  TO  200 
40u  CONTINUE 
1=1+2 
GO  TO  200 
300  CONTINUE 
L=L-1 
NP=L 

NPIS=(L*3)-1 

C  CALCULATE  MEANS  &  VARIANCES 

DO  700  1=1 » NP 

IF  ( YA ( 1 ) «NE. Yb(I> .OR.YA(I) .NE.YC(l) )  UO  TO  600 
YMEAN(I)=YA(I) 
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msm. 


I 


S2N( I ) =0.0 

WRITE.  (o»2s0u)  YMtAN(I),S2N(I) 
oO  TO  700 
oOo  CONTINUE. 

YMtAN  ( 1 )  -  (  Y  A  ( I )  ♦  Yti  ( I )  ♦  YC  ( I )  )/3. 

S2w(l)=(  (YA< I)-YMEAN(I)  )**2-KYB(I)-YMEAN(I>  ) **2+ ( YC ( I ) -YMEAN ( I )  )  ** 
12) /2« 

70u  continue 

C ************************************************ ********************** 

C  SORT  IN  ORDER  OF  DECREASING  VARIANCE 

CALL  SORT  (NP»S2N*YMEAN»YA» Yb»YC»XA»XB»XC) 

c************ ********************************* ************************* 
c  calculate  snu 

L=1 

C  SUM  VARIANCES 

O00  KNT=G 

sumv=o. 

DO  900  1  =  1  *  NP 
IF  (KEY  ( I )  .EGl.l)  60  TO  900 
IF  (I.Es.L)  GO  TO  900 
SUmV=SUmV+S2N( I ) 

KNT=KNT+1 
900  CONTINUE 

SNU=SQRI (SUMV/(KNT-1) ) 

C  TEST 

TA=ABS( ( YA(L)-YMEAN(L) )/SNU) 

TB=ABSUYB(L)-YMEAN(L)  )/SNU) 

TC=ABS( (YCIL)-TMEAN(L) )/SNU) 

IF  (TA.lQ.TB.OK.TA.EQ.TC.OK.TB.EQ.TC)  oO  Tu  13u0 

TE=MAX( IA»TB* TO 

IF  (TE.LE.TESTV)  Go  TO  1300 

IF  (TE.EQ.TA)  GO  To  lOOO 

IF  (TE.tQ.TB)  GO  TO  llQO 

IF  (TE.EQ.TC)  GO  To  1200 

GO  TO  1300 

lOuO  wRaTE  (o»2400)  L»AA(L) » YA(L) »TE»SNU 
XA(L)=999. 

KEY (L)=l 
SO  TO  1300 

1100  wRiTE  lo»2400)  L»Xu(L) »YB(L) »TE»SNU 
XB(L)=999. 

KEY (L)=i 
GO  TO  1300 

1200  WRITE  (to»  240o )  E»  XC  (L )  *  YC  (l )  » TE»  SNU 
XClL)=999. 

KEY (L)=i 

L  CHtCK  Tu  SEE  IF  ALL  VALUES 

1300  IF  (E.EG.nP)  SO  TO  1400 
L=L+1 
GO  TO  600 

C  PUT  IN  NEW  ARRAYS 
14U0  L=G 


ISuO 


Nc.aPTS=0 
L=L*1 

IF  (XAIU-999.)  louQ#l700*lu00 
v.  POINT  AcClPTEl) 

loOO  NEmPTS—NttoiPTS+i 

XNL* lNt*PTb)=XAlU 
YNtwlNt*PTS)=Yx(L> 

1  7o0  IF  UBli-)-999. )  I6u0»l900*lb00 
IojO  NE*PTS=NEWPTb*l 

XNc.w  ( NL*P Tb )  =Xo  l L ) 

YNt-K  lNE*PTb>=YB(L> 

19u0  IF  (XC Il)-999. )  20o0*2100*2uo0 
2000  NE«PTS=NE>PTS>  +  1 

XNtWlNE*PTb)=XC(L) 

YNt.w(Nfc.*PTb)=YClL) 

21 b0  IF  (L.Ot.NP)  60  TO  220o 
oO  TO  lbOO 
22oJ  KE1UKN 
C 

2boO  FOKMAT  11Hu*12a» ’SAME  VALUtb  ' *2Fo.O) 

2900  FOKMAT  I’OKEJECT  POINT  »,  I,J»  '  »  X  =*»Fb.2»'»  Y  ='»F6.2»'»T  =*»F6.2»* 
1 >  SwU  = • » Fo»  2 ) 

ENu 


i 


i 


OUbKOUTlNt.  CVKLo  l  N1 ,  NPT  *  X  •  r  *  DtORt  •  COth  ) 


C 

C 

c 

L 

O 


CUkVILINLAK  RLoKtSblON 

v.UKViLH'lk.AK  KcoKtbblON  Ot 1 tKM INLb  THt  L.OUAT  lONb 

oF  TMfc.  'jTAIISIKaLLY  BlST  FllTINt.  POLYNOMIALS  OF  FIRST* 

StLONO*  THIRD  AND  FOURTH  OKutK. 


UlMLNSlON  mIIOHD*  X  ( 1 )  *  Y  1 1 )  *  COLF  ( 1 )  *  KON(lO) 
N-N 1  1 
M=w»l 
ANhT-NPI 
uO  loO  1-1  *  N 
UO  100  J-1*M 
1  JO  M ( 1  *  J) -o. 

A(i*l)=NPl 
uO  4o0  l\=l*NPT 
00  300  1  =  1*N 
oO  300  J=1*N 
lPd<d=I+o-<: 

IF  (iPJ<l)  30u  *  300  *  <200 
<20u  A(i*J)=A(l*J)  <-X(K)*+IPj^ 

JOO  LOnllNUt 

00  400  1=<2»N 

*♦00  A(i*M)=A(I*MH-XlK)**(I-l)*Y(K) 

00  bOO  d=l*NPT 
bOO  A(l»M)=Atl»M)+Tld) 
uO  ooO  U=i*M 
00  OOO  l  =  l*N 
oOu  A(i*U)=A(I*J)/  AimPT 

itKK-0 
M=n+1 

00  130u  1-1  *  N 
IF  (A(I*m  MOo  *  70o  *  dOo 
/uu  lLnK-1 

oO  To  l‘+oo 

uOo  1  LiyiP— 1  •  0/ A  ( I  *  1 ) 

1P1=1+1 

00  900  J— 1P1 * M 
90o  All* J)=A(1» J)*TLMP 
00  1<>00  K  — 1  *  N 
IF  l  1  — K  )  loOO  *  1*100  »  loOo 
lOo'J  00  1100  J=1P1*M 
HuO  rt(r\*  J)=A(r>*  J)-A(K*  1 )  oAl  I  *  J) 
l,2uO  CONTINUE. 

AJuJ  LOhTINUL 
N=nl+ 1 
M-N+ 1 

l4u J  IF  llthK)  lbUO* 1600* lbuO 
lboO  wRiTL  l  o  *  31 00 ) 

00  70  12300 
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luuO  COf*l  lNUt. 

UO  1700  K  — A t N 
17uJ  COlFIK  )-AlK»M) 
bUMR2=U.  0 
UO  1900  I- A  *  NHl 
YC=COEFU) 
oO  IttOO  K=2*N 

iouO  YC-YOCOEFOO»xU>**lK-l) 

R=Y l 1 )-YC 

1 90 0  bUMK2-bUMK0+R*R 

bIoMA=buRl  ISUMR2/XNPT) 
bbLKR  =  bUMR«; 
bUMK2=Y  (  1  ) 

00  2000  I=2*NP1 
2000  bUMR2=bUMR2+ Y  1 1 ) 
dArI  1=SUMR2/NF,I 
bUiviR2=U  •  0 
UO  clOu  i-A»NPl 
R- Y ( 1 ) -uAKY 1 
<-iuO  bUMK2=SuMK2+K*,R 

bS  1  OT-bUMKc. 
bSRLG-bbT  01  “bbt.RR 
UbKLvj— bbREu/Nl 
UbERR=SbERK/(NPT-lNl+l ) ) 

FRATO=ubREG/UbERR 
uEoF I :NA 

uEOFt3=NPT-lNl4l  > 

UEoRE=NPT-l 
tTb^bSERK/bSTof 
IF  iETS.oE.1.0)US=1.0 
C0rR=SURT (l.O-LlbJ 
wRiTL  luiboOO)  i'll 
*R  x  TO  1 o » 2t>00  ) 

*'RaTE  (u»270U)  bbRCG » OEuF 1 > ObREG » FRATO » lORr 
aRlTt  lo»co00)  bbERK t DtGFt) • obERR 
aRiTt.  Ib»2y00)  t»bl  OT  t  JLoRL. 

#HA  ft.  loft-AOo) 

MM=U1+1 

UO  220U  1-1»10 
22u0  KOull)=l-l 

«K1 1  L  lb>2b00)  (KO|\i(  1)  ,COt>  1 1 )  *  I=1»MM) 

<ibuO  RE  I  URN 

L 

<t  40  0  FORMAT  l//#?X» 'CURVE  CoEFFl^lENTb' ) 

«;bo0  FORMAT  l //«:X  *  2Mu  l » 1 1 1  1h)  *  bX  »  tlb*  7 ) 

2ouU  FORMAT l// »^X# ' hUORCE' *9X» ♦ b.b*  * 9X » ♦ O .F  * , 9X ,  * M. b’ r 9X t » F ' , 12X * • R » ) 
27o0  Format  1//»2X*'uuE  TO' rbUx»Elo.4> ) 
t-boO  format  l// »2X»  »  AbUUT  •  O(4X#l10.4)  ) 

2900  FORMAT  l//»2X* 'ToTAL'*2(4X#l10.4> ) 

bObO  FORMAT  llHl >2X» ' ANOVA  FOR  CURVE  OF  ORDER '  *  A  b ) 

bloO  FORMAT  l//#4X» 'blNoULAR  MA  f  K I X  '»/. 4X »' CURVE  FIT  iMPObblBLE ' ) 

ENu 


r.  r 


I 


bUoNOUl  iNL  SOK  l  <N* VAL»a1»A2. A3»X4rXb.Xu*X7) 


bUdKOUTiNt  FOM  bOKTlNG  N  NUMUEKS  IN  UEbCtNulNG  OKDtK 


JlMtNSlON  VAL(l) »A1(1) »X2(1) »X3( 1) »X4(1) »Xb(l) »Xb(l) »X7(1) 
M— U”i 

0(j  100  1  =  1  *  M 
«-=l+l 

UO  luO  1I=L»N 

IMvAL(l)  .Gt.  VAL<n>)  ouTo  lOO 
h  =  VALID 
VAL(l)  =  V  AL (11) 

VAL(II)  =  F 

f=xui) 

xi 1 1 )=X1 1 11  ) 

aiiu)=f 

F=a^U) 

X2 1 1 )  =X2  (11) 
a2U1)=F 
F=a3(I ) 

X3( I)=XJ( 11 ) 

X31 11 )=F 
F=a4( I ) 

A4  ( 1 )  -Xh  (  ID 
X41 II  )=t- 
F=Abl I) 

Abll)=Xo(ll) 

Xb 1 1 1 ) =F 

F -Ab ( I ) 

Xbll  )=Xt><  11) 

Ablll)=F 

F=a7<I) 

X7(I)=X7U1) 

X7l 11 )=f 
100  COnTINUt. 

KLIUKN 

LNl> 


I 

I 
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Cushioning  Model  Development  Code 
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V, 

V. 

L 

C 

V. 

V. 

L 

c 

c 

c 

U 

C 


V. 


C 


C 

c 


t  ni  b  PKOGRmM  IS  UbLU  10  GLNERAIl  THL  DYNAMIC  CUSHIONING  MOuEL. 

TMl  PluT  KoUTIhLS  A*L  STANDARD  CDC  obOu  SCOPE  ROUTINES  ♦** 

PasS  i  IS  UbLu  10  oE'^lRATl  iJA  T A  For  THL  MLR  PROGRAM. 

P«Sb  t  IS  oSuu  lJ  uW'LUATt  TnE  COtFFICltNIS  FROM  I HL  MLp  PROGRAM 
AND  Pi_uT  ftit.  FINAL  RESUlIS. 


PhuOHAM  MOuEL  l  rAPt.l  =  lJO»  I  Ai'L2=65»TAPEH» 

♦  TAPi_9d-bb*  IA)l99=10o* 

♦  PUNCH— u5 *  iuPUT=t>D»  UCilpuT  =  10Jf  1  Apt7=PUNCli*TAPEb-lNPUT) 


uImlNSIuN  TEMP  ( 10 )  t  A  1 1 MP 1 1  c  )  *  UKOP  ( 1 0  )  »  Del  10) 
u  1  i'iLf  )S  1 01 J  HE  Au  ( b  1  *  LEF  T  (  b )  *  UuT10M(t>) 

V 1  MLNS  1  OH  K  1  U) )  l  l  1  b  ) 

U I ML NS 1 UN  IWUlbi ) *COEKF ( Ji ) * AlBbb) *X(iOl)*Y(lOl) 
uImENSION  NC(ttt)»  NC Aru ( b ) »  V(51) 

JlMENSlON  THICK ( 1 0  )  *  NSYM(io) 

UAIA  LlFT/8*1Fi  / 


uA  I  *  HErtU/o*lU  / 

uA  I  M  T  l.IVP/  1  U  +  u  •  /  *  DROP/lu*u  ,  /  *  ATEMP*  UL  /  2u*10H**********  / 
l/Ai»  JHlt-i\/io  +  G./ *  nsym/ij*iOh  **■*♦****♦*/ 
uA  t  n  HLaU/o*1h  /*  Rlb^U/lb^iH  / 
uA)h  TP*un*Tu*  SS *  GL/S*  1  •  / 

CALL  UmTEI  CAY  ) 

I'l  V  R  -  HO 

IiJOlKT  NuMbt-R  OK  LUUATION  TERMS  HERE  . 


REmIND  ! 

REmD(7*S04)  mIlsI 

IF  l  EO) 17)  .lu.  o*o  )  GO  lu  2u0 


v. 


PASS  i 

9  Nb*\1  —  x 

COP r  IhPE  OS  lu  FIlE  1 


ubKU  =  i 
HOKC  =  1 

NP  =  0 


kLkIi^D  A 
KEwiUD  09 

iu  REmU  1  b  *  9  U  b )  NcmrI  *  IP*  u,,,  1C*  sS*  oi_*  REP*  IP1*TP2 
9  Ob  FOhMA  T  l  o  A  i  o  *  Ti*b»  10.5*bX**Al0*A2) 
iF  (  LOF I  S  )  • wL •  0.0  )  uu  TO  1A 

u  IF (UH  .LO.  21 )  UO  1 0  lo 

C  IF (1C  «uL»  4 .  ) UO  lu  13 


c 

c 
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Li,OOL>LlbU»9uJu»WLAK0(l)  )  l P r pH , TO > bb r Gl 
90  Ju  P OKPAT l bF 1 o • b I 

PKiMI  9oUl»NCrtrtJ 
9jOi.  FOm^ATi*  TFbT  *»bAl(j) 

>vK  i  I  L  ( 1  *  9<du  )  MCAf'U 

mp  =  mp  >  1 

u  LOOuT  UlFFLKt>'T  TEMPEKHluWLb  AMU  COubTuUCT  LABLLb 

JO  lb  J-1»mBRI 

IF  l  IF’  «E«u  TcMP(J)  )  oo  lu  lb 
ij  0  01,1  I  NUu 

ILi*iF(NbKT)  =  IP 
JTp  =  TP 

LwOOPl  ( 10 » Qltit  AT  c.|,|p  { Mbl\T  )  )  JTP 

bit.  FOr\i*iAT  l  ib>  *  UlgMLO*) 
imUhT  -  MBK  1  ♦  1 

o  COO-.,T  u  IFplKL"<T  uR0P  MuiO-HTb  AND  CoNbTtxUCT  LABLLb 

lu  JO  1/  J— l»wBKu 

iF  l  Ut-t  •  EG*  ur<oP(J)  )  GO  To  lb 
1  t  oOi,T  IMOu 

jKuP(NbKU)  -  un 
JUm  -  Jd 

EmCoDl  l  lu » °l9 » JL  I MBkD)  )  Juii 

Vi**  POKKATI  i.J»*  IMorlLb*) 

WLJrvu  -  imBKL  +  1 
O 

o  OQUuT  UlFFt.i<L,'iT  THlCKMt-bbtb 

lu  JO  19  J— 1*MBKC 

iF  (  TC  .Lo.  TiuoKiJ)  )  Oo  To  <dO 

1  9  uOi,1  1 1  JUu 

T rliCK  ( NuUO )  -  lo 
JTu  -  To 

Li,C00t- 1  lo»9lb»NbTi‘l(N3KC  )  )  jTC 
9i j  fok^at i n » yx ) 
i,cj(\L  =  i,t3Ko  +  1 
o 

U  out,  i  ifvtOu 
uO  10  lb 
19  LNu  FILl.  1 
riLwlND  1 

klwImd  yy 

nldlxT  =  Wblx  I  ~  1 

•yijrtlj  -  i,Ouu  -  x 

MdFtC  =  MBrxO  “  1 

IF  l  i JP*N6k1  *Nbr\U*tMbKC  .Mt.  u  )  GO  TO  <Ll 
PKlMl  9io 

9lu  FOkNiAT  I  *1*kOI,u  IMF  OT  FaLL*////) 

O  FiOUt  1 

i,  -  “LOoF  (  I  LibP  1 1 )  I  —  lOOoo 
ItMP(N)  =  u. 
ooi,  r  l mol 

IF i  ubKJ  • uT •  b  )  MuRJ  —  b 

wKiTl  l  9o»  9b0 )  I  PI  *  TP<2  •  i,;iR  I  »  .jl'RU  •  MdKO  »  TlMP»  ,tTt  Mp »  UHOP » uL »  TM1 CK  *  Nb YM 
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bbo  f  Oi\MAT  lbAiu»jl«./.JIll)Plo.4/luMlu/)  ) 

Ktwli'iJ  96 
b 

NKtlURN  -  1 

rC  i  3  )  =Nb  ( *♦  )  =NC  (  o )  -NC  ( 1  2 )  =Rb  U  7  )  =NC  ( Id  )  -NC  1 19>  =  ,*C  (  2d  )  -  1 

NC  lb)=NP 

imc  m  =*j 

nci9)=999 

NCI  12)  -  1 

rkumF  yjo»  oat 

93o  FORMAT l * lo  T  NAMlC  bJbHloNlNu  ANAL  Ybl  b*9  oX  >  A1  u  ) 
bO  lbo  Nl  -  i»l 
rtE.nl  NO  1 
wP  =  0 

nC  1 1 )  =Nb  (  20 )  =  rT 
RC(2)=Nb(i.i)=NLll4)  =  KVrt 
IT  =  TbcHlI.T) 

C 

ljO  rEmU(1»9U1)  TP»  uH#  Tb»  bb»  GL 
90i  F OrtMAT I bF lo . b ) 

IF l  LOFll)  .Nt.  G*o  )  GO  lb  120 

b 

b  iNbt.rtT  JATA  CONDITION*-.  HERl...  „uS0  IN  AFFlCTEu  DO  LOOPb  IN  PAbb  2  .... 
c 

TVrtK  =  OL 

b 

b  COMPU  lb  Ui,4H  Mlb  CUSHIONING  MODEL  VARIABLES 

oO  TO  bOi) 

10  j  bGuT  INUt. 
b 

b  iubt-RT  TV  AH  TKMNbFoKMA  |  ION  HERE  . . . . . . 

nKifElil)  I  V l J ) *  J=l»  UVH  )»  TVAH 
UP  =  NP  ♦  1 
oO  TO  100 

b 

i2u  LNu  FIlc.  li. 

PRIrT  9o2»NP 

90«-  f  OkMAT l //*  WP  =  *  lb) 

*RlTE(2»904)  Nb 
PRINT  9o4 1  Rb 
yOH  FOrtMATl  14iB  ) 

nR  1  Tt.  (  2  »  9Uo )  TP1»)P2 
PRINT  90t>»  TP1»TP2 

yjo  FORMAT (bOA»T2»  *o  Y1  <AMlC  CUSHIONING  MOoCb*  bx2Alo> 

1  bo  bOiM T  1  NUu 

PRINT  907 •  (  lt-MP(J),  j=l#Nt,KT  ) 

PRINT  yob»  (  oKOPlo).  D=1hVl>K0  ) 

PKirT  9C9»  (  TriiCR  to)  ►  J=1  ».JijKC  ) 

90/  F0rtP.AH///*  TEMPt-RATURtb*  IlFb.O) 

90b  FOrMATI  /*  DROP  I'tlGHlb*  11F6.0) 

909  FOrtMATl  /*  THlbKNtbbEb  *  IlFb.O) 
rtEnli^D  i  1 
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KLwiND  4. 
uU  TO  999 


P’AbS  2 


i<Em  1W0  I 

hEAot.  cONb  I  AN  1  0  FOK  PAbb  2 
*t...  1UU  9b 

KLmu  (9b»9b0>  I  Pi  *  TP2  *  wjK  1  >,\lbWL)rNBhC»Tt_MPfMlEMp,UKOP.Ol-,THlCK*NSyM 
IF  l  NBKT  .  t_G .  0  )  STOP  'c-KKoP' 

MKl_l  URU  =  2 

h£au 11)  -  I  PI 

hEmu(2>  =  1P2 

XMiU  —  ALuol  U  l  «u<i  ) 

aMhX  =  hLo«j1uI  iu»u) 

ua  -  (  a  Mm  A  -  aMIN  )  /  Uu. 

bt-ML1 1  7  »  920  )  NuAKPf  Kj  CuNbl  •  NT  t  IW»uU»  i^STEpr  Nu»  bE  t  R 


1  JO. 

'  GONbl  • 


FOimsAT  ToA10»T1»  lb  t  L2o  .  a  *  Dl  0  t  F2o  •  A  >  F  1  u  •  7  ) 
IF  l  t-OF  17)  ,NL.  u»u  )  GO  To  999 


1W»hU»  nSTEp.  Nu*  bE  t 


WV  t  i< 

lb*  VmKIALTLES 

CArtOb*//  ) 


lNulJ).  COLFFTJ) 


1  uL  ( 0 ) » 


PRiNf  922 »  NV» 

.  FOkMAT 1*1*  /  *1*  lb* 

*F  b  •  o/ / /  *  MLR  OU  FT’O  I  0  ArtOb 
PRINT  91U»  NCAuU 
>  F0r\ivlAT  l  aX  »  bA  1 U  ) 

00  220  0-1 » NV 
kLAl)(7»920)  iMOAKL  *  iiTUlJ 
i  PFuNl  91  J »  NCmKO 

ENCODE l lbu  »  91 1 » k 1  oHT  )  < 

L  F  Oiv'TAT  (  ioOX  t  bOA  »  T  1  *  bOiJi) 

oO  2u0  NT  =  IhmukT 
iit.MO(t-i)  =  mTEMPInI) 

TP  =  TEMP l NT) 

DROP  Fti_  I  Oi  1 1 
00  2b0  no  -  1  m.oKo 
uTl  =  DKoPMnD) 


nL«UTb)  =  uLUu) 

OALL  bLlbi\il>(  M#  “lot  XMlN»  aMAX»  O.U'ObC.) 

2  Ai_L  LAoGkiDT  a  »  1 »  20 1  2ohi_uG(  STATIC  bThii_SS  )  ) 
v-ALO  LmoGniDI  m  t  2»  20»  2UM  6  uLVEL  ) 

0  AuL  LAuGh  ID  l  A  t  it  rfO»  Ht.Au  ) 

CAoL  LAobklDl  Ai  A »  7b t  KlGnl  ) 

TMi  vf\ui_Sb 

oO  290  imTo  =l»nokC 
1C  =  Tl'iCis  INTO  J 


CORRELATION  COEFFICIENT  IS* 


aa  -  XFilN 
UQ  ciO  OP  —  1  *101 
bb-lo*  *aX 
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L  COMPUti-  ufiMAViL  CU^hIuNinG  MOJlL  VarIAuLLS 

ou  TO  bOO 
CGi.TI'IUl 
1  l  )  =  oo.mST 
uO  22b  o=l  »NV 
i  —  INc'iO) 

tbo  1(UH  =  Y  ( oP )  ♦  COlTF(j)  *  v  ( I  > 

A(oH)  =  Xa 

0 

b  Klv/li<Sl  YVrtK  TKauSFukMaI  ioN  HLKL.  Y(OP)  = 

b 

i.Jo  XX  -  XX  +  uX 

0 

CAll  PLTGmaDI  m.  NSYfKNTC )  •  101.  X»  Y  ) 

t'tv  couTiNUt 

c 

u  All  PkINTPLI  M»  bLOUTPUT  ) 
l3U  LOUT INiUl 
bolt  COHl  1NUL 
GO  TO  2iG 

L 

bOo  COi.l  ir.UL 

u.»**+****  D Y iMrti-1  i C  LoohlOMI'Jb  Mujll  ********4  ******* 

bSiOG  -  Sj  *  iou. 

ML  =  ALuo (  Sbloo  ) 
mLl  =  ml  *  AL 
bhuH  =  oUKl  l  On  ) 

IX  sH  =  1C  **  (  -J.b) 

1 1\  =  ( I P+Hbo ) / it l • 

IK^  =  TK  *  TK 
TI<o  —  T m  *  TR2 
IRh  -  Tui  *  TK 

TCori  =  IC**(-J.b) 

fciM  =  rc**(-i.t>) 

TCiNy/  -  TL**(-2«b> 
i ( o 1 )  =  TK  *  IXOH  *  l.u 
V(u2)  -  TK  *  TlOH  *  1.0  *  A|_ 

V(oO)  =  TK  *  TO OH  *  l.u  *  MLc 
Ylu4)  -  TK  *  TlTh  *  SKurt 

Y(ub)  -  TK  *  rtlh  *  SKlH  *  ml 

wlub)  =  TK  *  ToTh  *  SRuH  *  hL2 

V(u7)  =  TK  *  loon  *  bKLtH 

V(ub)  -  Tk  *  TlOH  *  SRUh  *  mL 

VluO)  -  TK  *  I luH  *  SRbH  *  «L2 

VliO)  =  I  K«-  *  ICoH  *  l.u 

vUl)  =  T  Kb  +  ILOO  *  l.o  ♦  ML 

Y(ib)  =  TKt  *  TCCH  *  1.0  *  mL2 

VUG)  -  TKb  *  ICTH  *  SruH 
V(ih)  -  TKt  *  TlTH  *  ShOH  *  mL 
Y(ib)  -  Trvb  *  ICTH  *  Sr\jH  *  ALb 
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S  I  EPw  1  '-it  MULTIPLE  LINlmK  REGRESSION 


lUtN 
if'il  YPl 


p  oAGuO  uPOn  PROlEUUrlS  ii,  DkAPER  ’  s  APPLitD  REGRESSION  ANALYSIS 

u  AND  SHmRe  uuMoEK 

p  TAPeS  9  (ao)  AND  10  (G0)  ARE  UoEu  aS  wORi\  TAPES* 

P  TAPi-S  11  lob)  AND  10  luu)  ARE  UbEu  AS  BINARY  INPUT  TAPES. 

>.  m.  M.R  eUNTrOL  CAKu  l  FORMAT!  iaIS  )  ******************************** 
V-  ul-oa  imPROO  =  NUMUeR  10  IDENTIFY  PROBLEM. 

p  uo-U  wXV  =  TOtAL  NoMBEa  Or  INDEPENDENT  VARIABLES  IN  INPUT  DATA. 

>-  n-is  nyv  -  To i au  number  oi-  dependent  variables  in  input  data. 

u  io-iU  INDEX  r  =  INDEX  UF  THd  DlPlNDlNT  VARIABLE  for  THE  PRuBlEM. 

o  i.data  -  total  number  of  uaTa  obslrVmUOnS  for  the  problem. 

P  iF  UNKNOWN-  ->eT  EOUAL  MAXIMUM  EXPECTED  AND  SeT  LAST 

P  data  OBSERVATION  LOUAL  Tu  99999099. 

u  CO-JO  iutN  =  NUMBER  oF  AuPHABlT  IC  header  CARDS  l  SEE  C  ). 
p  3i”uS  iNTYPu  =  0  FUR  REGULAR  RU,\  WITH  UATA  ON  CARDs. 

p  1  TO  ke«v  lNO  10  and  STORE  CArD  DATA  FOR  LATER  PROBLEM. 

*  2  lu  REWIND  10  AND  USE  UA1A  STORED  BY  A  PREVIOUS  PROD. 

p  3  I  u  STOKe  l  ARu  dAT«  ON  TAPe  10  WITHOUT  REMIND, 

p  4  ro  uSt  UA  f  A  UN  1  APE  10  rtimour  FIRST  REwlNuING. 

p  5  TO  USe  TAPE  11  (Bb)  AS  INPUT  AFTEr  REWINDING, 

u  b  Tu  USt  f APt  11  (Bb)  AS  INPUT  WITHOUT  REWINDING, 

u  7  RewINd  B5.  USE  AS  INPUT.  THEN  REWIND  FOR  LATER  USE. 

u  ou-ao  i.REmK  -  0  TO  OSe  UA  I  a  wilhOUT  REARRANGING  IT. 
u  1  To  REARRANGE  DATA  ACCOruIng  Tu  CONTROL  CaRu  F. 

u  Ai-Aj  mAXSTP  -  MAX1MUN  NUMbeR  UF  STEPS  OR  iterations  AeLOwEU. 
p  Tu  BYPASS  PKINluUT  OF  C ALuULAT lONs  PRIOR  To  SUMMARY. 

P  Se T  EGUaL  TO  9y9« 

p  AB-bO  iFbACR  =  STlP  a!  WHICH  uACr  SOLUTION  STARTS  (ACTUAL  Vs  PRED.). 

P  SEi  LUUAL  TO  0  FOR  NO  BACK  SULUTIuN. 

p  SeT  LuUAL  TO  9y9  FOR  BACK  SOLUTION  OF  SUMMARY  ONLY. 

P  mu  T  L  -  IF  NDaTa*1NXV+1)  lb  GKLATER  THAN  9000.  A6  IS 

p  oslu  to  store  uaTa  thereby  increasing  run  time. 

P  bl”bb  I.STARI  =  NUMBER  OF  INDEPENDENT  VARIABLES  THAT  YOU  WISH  TO  START 
p  THL  REGRESSION  WITH  ISLL  u).  NORMAL  VALUE  IS  0. 

p  lr  N^TART  z  -l  1  HE  PROGRAM  WILL  AUTOMATICALLY  PUT 

P  All  NxV  VaRIABueS  IN  KtoRESSION  AT  START  WITH  A 

L  TejT  uF  One.  WI1H0UT  CONTROL  CARDS  IN  0.  TLST  is  ZERO 

l  Fur  uTheR  NEuaUVE  VALUES. 

p  Su-uU  MlNSUfl  =  min  NtJR  UF  1NU  VAR  IN  SUMMARY  O/P.  NORMAL  VALUE  IS  1. 

P  ol-ob  FI  Ax SUM  =  Max  NbR  OF  IND  V«p  IN  SUMMARY  O/P.  NORMAL  VALUE  IS  NXV. 

P  UD-/U  i*iAXREu  -  MA A  NBR  of  and  VaR  in  REuRESSiON.  NORMAL  VALUE  IS  NXV. 


i.RLAR  - 


fiAXSIP  - 


aFuACr  - 


P  bo” 
P  u  1” 
u  t>o” 

u**»* 


oU  mINSUm  -  MIn 
ob  fiAxSUm  —  Max 
lu  i*iAXREu  -  MAa 

MLR  CONTROL  CARu 
Cb  iFwT  -  0  Fu! 


normal  value 
NORMAL  VALUE 
NORMAL  VALUE 


A 

IS  ZLRO 

IS  1. 

IS  NXV. 
IS  NXV. 


*FCNbl  = 


CARu  2  ***♦♦*♦♦♦♦****♦ 

0  Fur  UNweIoHTeU  DATA 
1  IF  FLIGHTS  AKe  READ  IN  AS  INPUT. 

0  if  COnsTAnT  TerM  IS  TO  BE  CALCULATED. 
1  fu  DELETE  COnSIANT  TERM 
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V. 

v. 

o 


o  11-.IB  iFLIsl 
o  lo'tO  iFSUMs 
L  cl-Vb  iFRES 
v  lo-jo  iFCOKt\ 
o  ul_OS  nCROS b 
L 


v. 

V, 

V. 

o  jO*mU  iF  T KA 


l 

V 

V.  Hl-HS  nVO  10 

L 

c 

v.  -.g-su  iFsud 

L 

L 

v. 

L 

l 

v. 

u 

L 

l  si-ss  nF >i r 

L 

V. 

l.  bo“uU  iF  PNLii 
ul"os  iFuAT  l. 
L  ou”7u  iFNAMe 
l 
L 


o  C.  nLPnAuETiC 
L  iutu  LARDS 

o******w** 


--1  IF  U-nST  IEKM  is  TO  OL  COuSlULRED  Ab  THt  COEFFICIENT 
ut-  A  Ntw  *NUlPlNDENT  VhRImdLE  XD  WHICH  ALWAYS  HAS  THE 

value  i.  the  sigNif icance  of  [he  constant  WILL  ue 
IhOILmTEO  hY  lib  bT ANDAkU  ERROR. 

-  n  To  l^st  Input  uaTa*  i  u thlk  w l bE • 

-  n  Tu  lIsT  Sum l a i »xD ) .  1  uTHlkwIse. 

=  0  fu  il jT  SUM ( a i -aUAK I ) l X J-aoAH J )  r  i  otherwise* 

=  0  ru  LlbT  SIMPLE  CORRELATION  COEFFICIENTS.  1  otherwise. 

-  1  IF  YUU  WISH  IO  INCLUDE  AS  ADDITIONAL  INDEPENDENT 

v fAK T AbLu j i  THt  SuUAREb  AuU  THE  CROSS  PRODUCTS  OF 
1  HE  INdEPENUlhT  VARIADLEs.  ZLRO  OTHtRwlbE. 
ulNEKA  TEu  YARIdLlS  ARE  XlNXV+1 )=X1*X1 

a l NXV  +2 ) -X 1  * Ab  »  X(NXV  +  0)-Xl*X3#.. .X(NXV  +  NXV)=X1*XNXV 
x(NXV+NXV+l)-X2*X2*  X(nXv+NXV+2)=X2*X3  ....  ETC. 

=  ALLOWS  FOR  TRANSFORMATIONS  of  input  data,  dee  g  for  USE 

-  0  F  uR  No  TRmNSF  ORimA  T I  ONb 

-  1  Fur  T  R ANSF  ORMA  1  i ONb . 

--1  To  ubL  PReVIoUs  Trans  WHICH  Arl  STILL  IN  CORE. 

:  0  10  PROCESS  All.  OBSERVATIONS.  =  1  TO  READ  UP  TO  14 

OdSlRVATIOnS  To  oE  LEFT  OUT  OF  REGRESSION.  SEE  CONTROL 
CARD  L.  =.  -1  To  USE  PRtVlOus  E  CARD  . 

-  Zero  FFR  NORMAL  nuN.  POSITIVE  VALUE  CALLS  IN  A 

USER  SUPPLIED  jUJROUTINL  CALLED  NoROFX l IF SuB * NXV ) 

to  change  nxV  inuTe-  nbroFa  must  be  supplied  even 

IF  11  lb  DudT  m  RETURN).  A  ubEk  SUPPLIED  SUBROUTINE 
CAelED  EOUAT l IFbUtWUATA)  IS  USED  TO  MAKE  THE  DESIRED 
CROSS  PRODUCT  And  T R ANSF oRmA T IONS  l NOTE-  DEPENDENT 
VARIABLE  ShoUlD  uE  DEFINED  AS  THE  VARIABLE  OAT  A l NX  V  + 1 ) 
wHtKE  uATA  IS  A  bET  OF  ObSlRVAIIOND  GOING  INTO  THE 
S/R  ANJ  THi_  TRANSFORMED  bE  T  COMMINu  OUT  ). 

=  fl  FoR  F egular  INFuT  FORMAT  ( /Fiu.o)  . 

-  1  TO  RLAD  I.mPUT  FORMATT  SeE  1  ). 

--1  lO  USE  FORMAT  HrOM  PREVIOUS  rum. 

-  0  To  u<  lE  T£  PUNohINg  OF  EuUmTIOn  COEFFICIENTS. 

-  0  To  PRINT  OATe  UP  COMPUTER  RUN 

=  0  10  READ  NmmES  of  VARIABLES.  SeL  H  FUR  FORMAT 
--1  To  USL  PREVIOUS  H  CARD •  STILL  IN  CORE. 

-  i  Tu  assume  bLanis  names 

hEADuR  CARDS.  DO  NOT  use  IF  IDeN-0  . 

with  Furmat(Ioas)  last  caru  repeated  on  each  page 


l 

g 

o 

L 


g 

g 

L 

L 

L 


u.  gakus  fur  vari adees  in  Regression  at  st*rT  mnu  corresponding  tests. 

oO  NOT  use  IF  iVSTArvTEO.  T  rlERE  SHOULu  De  •NSTART*  F IEEDS  •  7  ( Ft) .  C  r  12  ) 
ol-UO  IeSTU)  -  A  IesT  CONulTlO,,  WHICH  DETERMINES  WHETHER  A  VARIABLE 
wiLE  bE  oeEuATLD  Or  AdJeu  TO  THE  REGRESSION.  ITS 
vAlUl  IS  1 Zero  CORRESPONDS  to  a  multiple  CORR 
oOlFFICIlnT  Dt-  1»  WHICH  MAKES  IT  IMPOSSIBLE  FOR  THE 
PROGRAM  TO  ulllTe  THAT  VmRIAULE  FROM  the  SET  OF  1ND 
VARIABLES.  TesT=1  CORKeSPONUS  TO  MULT  CuRK  COEF  OF  0 
>iHIlh  MAreS  juLH  a  deletion  certain. 

L^“1u  inuEXTl)-  FIrsT  VARIABLE  TO  Be  INCLoDED  IN  REGRlSsIOn  AT  START. 
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l-lo  IEST  12>- 
V~LU  INDEM2)  = 
i”Lt>  TEST  U)- 
V“oG  inDEXIU)= 

»*♦♦*** 

•  ubSERV AT I0nb 
l-ub  NOGOOu(l) 
b“IO  nUGOUDIe) 

**♦♦♦♦* 

.  coNlKOl.  CARl 
i~0D  nwORuS  — 
j-lu  cOCY  - 
J  —  I S  LOCXlO)*w 


Tc.bl  F  OR  T*vO  VArIAuLe  SET. 

st-OONc  VARIABLE  10  BE  InCLuUeO  IN  REGRESSION  AT  bTART. 
TLb  T  F  OR  THREu  v  aH  1  ABLE  bE  I  . 

ETC. 

To  bE  REMOVED  FhOM  RtOKLbSlON.  USE  ONLY  It  NV0ID=1  . 

=  INDEX  OF  1  b  T  POINT  TO  be  REMOVED.  (  FORMAT  ( 1415)  ) 

=  c.T C  • 


TO  KEARKaNuL  MLR  DATA.  00  NOT  USE  IF  NReAReO. 
NUMBER  OF  WuRUS  ii\)  TAFE  OR  CARD  RECORD. 

LOCATION  OF  uEPunUENT  VARIABLE  Y. 

=1*nAV  =  LOoaT IONb  OF  INDEPENDENT  VARI ABLEb. 

IF  IF*Teq  L.Abl  LOCATION  IS  FuR  wEIGrtTS. 


1 1415) 


c  G.  I  RAnbF  GKMa  I  X  Oim  CONTROLS.  00  NUT  USE  IF  iFTKm=U.  F  ORMA  f  (  7  (  Fa  .  0  * 1 2  )  ) 
C  PU1  TRANSFoRMA HONS  AND  CORRESPONDING  CONST ANTb  IN  SAME  ORDER  AS 

o  X  AND  Y  V  AR I  ABLEb  « 

o  TRANSFORMATIONS  OeNoNl.  I=a+C*  2=X*C*  3=X/C*  h=C/X*  b=X**C* 

o  o=c**X*  7-eNIa+c)*  0=LuG(a+l)*  9=£**(C»X)»  1U=E** (C/X) ► 

o  1 1-SIN I C  *x ) *  12=Cus(C*A)*  1D=TAN(C*X) 

C  oI“UB  lONST  -  CONSTANT  FOR  FIkbT  VARIABeE 

o  o9“IU  i.bRTRa  -  TRANSFORMATION  FUR  FIRST  VARIABLE 

o  ii-io  =  conbT  for  second  variable  *  etl. 

c  i 9-cu  =  tra  for  second  variable*  etl. 

L********* 

o  U.  InPuT  VARIAbLl  NAMLS  IN  ORuEr  OF  INPUT.  USl  ONLY  IF  IFNAME=0. 
o  ul-IO  =  NAME  OF  FIRoT  INPUT  VARIABLE 

l  n-tu  -  name  of  Second  Input  variable*  ltc.  fokmati  7iab*A4)  ) 

L**  *♦***♦♦ 

c  i.  variable  format  for  input  jata  (idao).  osE  only  if  nfmt=i. 

L*»***W**W 

c  o.  MLR  JATA  CARDS  SHOOED  Be  PuNChED  WITH  F UKMAT ( 7F I 0 . 0 ) *  OBSERVATION 

o  by  observation  in  the  following  ordlk  iif  intype=o*1)  xi*  X2*  xo* 

L  X4.  ...*  XNXV*  YI*  Y2.  yd*  ...»  YNYV*  WTUF  IFwTeI  >. 

o  jAT  a  CARjS  t  Ok  INT>PEeO*I*B  urjLY  •  BINARY  TAPE  InPUT  F  OR  OTHER  CODES 

c  it-  nREAR-1  oRDtR  OF  BATA  Is  DETERMINED  BY  CONTROL  CARD  F. 

^♦♦******» 
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o  10  ObE  The  PROGRAM  I-OR  AN  ORDINARY  MULTIPLb  REGRESSION  (I.E.  no 
l  AjjoIuING  OK  jELe I  InG )  »  Put  all.  VARIABLlS  in  THE  HeGRLSbIOn  AT 
o  [he  OUTSET  l  nSTakI  =  -NXV  )  AND  PUT  MAXS1P  e  1. 

c****..*»***»**««******»»»***»*»***»****, ****»***♦*********♦******. 
>,♦**♦♦♦***  CARO  OUTPUT  (  IF  1FPNLH  IS  NOT  EnUAL  ZERO  ) 


ONE  Card  For  each  VARiAuLE  IN  EQUATION 
FORMAT l  IS*  c.20  .  fct  *  Sib  *  FZu  .  4  *  FlO  •  7  ) 


ul-Ob 

uo-2b 

EB-00 

Ol-Ob 

06-40 


I  -  INoeX  OF  InDEPenuEnT  VARiAuLtS  IN  EQUATION 
CoeFFU)  =  COEFFIlIenT  FOR  VARIabLl  I 
NPrOB  =  FrOBLem  number 

NBKNOW  =  NUMBER  of  variables  In  EQUATION 
inuExy  -  index  of  dependent  variable 
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r  c  r  or 


C  41-4B  =  NObTcP  =  S1EP  NUMBER  IN  WHICH  I HL  lQUATION  WAS  COMPUTED 

c  4o-bu  =  ippnch  -  Input  value  greater  than  zero 

c  bl-70  =  SloPCT  =  b I ANDakU  ERROR  OF  EQUATION  AS  A  PERCeNT  OF  Y  MEAN 

v  /i-ao  =  regrco  -  correlation  coefficient  up  equation 

c 

C^**+***+*  oAbiC  STAlibUCS  UUTPUI  ***+**♦*++ 

c 

C  Xl  -  A  =  VALUE  OF  OBSERVATION  FOR  VARIABLE  I 

c  bum  XI  )  -  bUMMATlON  OF  VARIABLE  i 

C  N  -  NUMBER  OF  OBSERVAIIonS 

c  XN  —  WEIGH  I  ED  NUiMDeR  uF  oBbERVATlONS 

C 

C  MEAN  =  wEIuhILu  AVERAGE  =  bjM(  XI  )  /  XN 

v.  bT  mnUAKU  UEVlAliOU  =.  SqRT  l  l  SUM  (  X I  **2  )  -SUM  l  X I  >  ♦MEAN )  /  I  XN-1 )  ) 

C 

l  bUM  uF  VARi  ABLlj  -  SU|V|(  XI  ) 

C  R Art  SUM  OF  SQUARES  AND  CKObb  PRODUCTS  -  SUM!  Xl*XJ  ) 

C  bUM  OF  SQUARES  AND  CROSS  PRODUCTS  ABOUT  THE  MEAN  =  CORRECTED  SUMS= 

l  =  bS(  I»J  )  =  SUM ( Xl *Xj) -SUM ( XI ) *SUM ( Xj ) /XN 

Sli'iPLE  CORRELAIIoN  COEPF  IcIuNTS  = 

=  R(liJ)  =  SS(1,J)/SQRT(  SS(I»I)*bb(J»J)  ) 

*♦♦♦♦**•*  RESIDUAL  ANALYSIS  (  ACTUAL  VS  PREDICTED  )  PRINTOUT  ********* 

c  ACIUAL  =  Y  =  UePENuENT  variable 

c  PReUICTlD  -  YC  =  COMPUTED  Y  USING  REGRESSION  EQUATION 

C  =  Ao  +  A 1  *  X 1  +  A2*X2  +  ...  +  AN*XN 

C  REbIUUAl  -  E  =  YC  -  Y 

C  NORMALIZED  DEVIATE  =  ReSIdUal  /  standard  error 

c  PERCENT  DlVIATION  =  li)0  *  ReSIDUAL  /  ACTUAL 

c  wEiGPiT  =  INPUT  WEIGHT  OF  OBSERVATION 

C  SSe  =  Ri_SiOUAD  SUM  OF  SQUARES 

c  Chi  square  =  sumi  i  kesidual**2  >  /  yc  ) 
c 

C*********  ANaLYbIS  PRINTOUT  ********* 

c 

C  10 1 AL (CORRECTED J  Sum  OP  SQUARES  =  SUM  OF  squares  about  THE  MEAN 

C  =  SUMU  Y-YMEAN)  **2)  =  SUM  (  ( YC-YMEAN) +*2 )  +SUM  (  (  Y-YC  )  **2 )  =SS(Y) 

c  TO  I AL (  ORloIN  )  SUM  oF  SqUakLS  =  SUM  OP  SQUARES  ABOUT  ThE  ORIGIN. 

C  USED  INSTeAD  Op  SSlY)  WHEN  REGRESSION  IS  FORCED  THRU  ORIGIN. 

C  REGRESSION  SUM  OF  SQUARES  -  SUM  OF  SQUARES  DUE  TO  REGRESSION 

C  =  EaPLaINEd  VARIATION  -  SUM ( ( YC-YMEAN) **2 )  =  SS(K) 

c  RESIDUAL  SUM  OP  SUUAREb  =  SUM  OF  SqUaRES  ABOuT  THE  REGRESSION 

L  =  UNEXPLA1NLU  VARIATION  =  SUM( (Y-YC) **2)  =  SS(E) 

l  IHe  MEAN  SqUARlS  COLUMN  I b  udTAINEU  BY  UIVIDINu  THE  SUM  OF  SQUARES 

c  ENTRY  BY  ITS  CORRESPONDING  DEGREeS  op  freedom. 

c  aESIUIJAL  MEAN  SQUARE  =  VARIANCE  ABOUT  the  REGRESSION  =  b**2  =MS(E) 

o  COEFFICIENT  oF  MULTIPLE  DETERMINATION  =  PCT  OF  EXPLAINED  VARIATION 

E  =  (SS  DUE  TO  REGRESSION)/ (SS  ABOUT  MEAN)  =  CORK.  PORM  SS(R) 

c  CORRELATION  COEFFICIENT  =  R  =  SQRT (  CORR.  PORM  OF  SS(K)  ) 

C  sTaNDAKD  eKROR  OP  ESTIMATE  b  S  —  SQRT (  MS(e)  ) 

^  S.E.  AS  Pci.  OP  MEAN  =  lou  *  S  /  YMEAN 
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\EgRESS10N  -  MSIR)/MS(E> 


v.  F  lEST  Fur  SIGNIFICANCE  Or-  i 

v. 

o  COwSTANI  -  AIJ)  -  Y  MEAn-SUM  l  A  l  1  )  ♦XML  AN  11))  =  CONSTANT  TeRM 

0  gOlFFICILnI  =  rv(l)  =  Tut  lFFlCT  ON  Y  Or-  A  UNIT  INCREASE  IN  XI  */HEN 

o  THL  OThEK  VARIABLES  Are  HELD  CONSTANT. 

0  STANDARD  t-RROR  —  bl  AiNDARU  lkROr  OF  REGRESSION  COEFFICIENT, 

o  TUL  9b  PLKoLNl  CONFIDENCE  LlMIlb  FOR  A  UNlVEKSL  RlGHESsION 

0  COLfFIlILNI  Ai<t  GIVEN  BY  ThE  SAMPLL  COEFFICIENT  PLUS  AND  MINUS 

l  i(o.o*db)  times  ruE  lswmatld  standard  of  the  coefficient. 

o  COlFF/Se  -  llbLU  IN  HYPuTMLblb  1  HAT  COEFFICIENT  =  0. 

o  =  cOEFf  IClc.Nl  DIVIDED  dY  ITS  STANDARD  ERROR  TO  GIVE  THE  NUMBER 

v.  OF  b.i_.  A^AY  I  ROM  HYPOTHLI^EU  ZLRO.  bHOULD  dE  GRlATlR  THAN  T 

g  VAEOe  10  Kt-JtOI  THE  HYPolHLblS  TnAl  The.  COEFFICIENT  IS  NOT 

0  SIGhlF  ICANILY  DIFFERENT  FROM  ZERO. 

v-  r  -  F  VAlUL  10  KLMOVl  VARIABLE  FROM  KLGRESSION.  NOT  USED  ♦♦ 

L  dL I A  COlF  F iC IEnT  -  MEAbURL  OF  THE  NL T  EFFECT  OF  EACH  VARIABLE  On  Y 

C  KSoi  CHAImbl  =  OELREAbE  11'.  Kbu  IF  THL  VARIABLE  lb  REMOVED  FROM  REGRE 

L 

L  PARTIAL  RSl  =  IHE  boOAKE  Ot-  1  HE  PAR11AL  CORRELATION  luEFFICIENT  OF 

L  VAR  I  ABLE  R  NOT  In  The  KloRESsION  WITH  THE  RESPONbL  Y. 

L  =  RIKY.LMN...  )**£  wHLKl  L»M»N»...  ARL  ALRlAUY  IN  RLGRLbblON. 

L  =  RlLAIIVE  amount  or  IMPrOVLMENI  TnAl  lb  brought  about  if 

l  VAKaAblL  R  wEI'L  ADULU  lu  The  RLOREbblON. 

L  nOrMLU  bU.-l/So  -  THe  nOkmAlUlD  bUM  OF  jQUAKeS  OF  RLSluUALS  FOR 

E  VaRIAUlF  r  FI  Ad  IT  TOu  BEEN  REGRESSED.  USEEUL  IN  bRAWlNG 

L  ATIlNTION  10  NEAR-LINEAR  ULPLNDENC  it.S  AMONo  THE  INI).  VARIABLES 

L  UElTA  RSO  =  CHANGE  IN  kSU  IF  VARIABLL  R  WERE  ADDED  TO  REGRESSION. 

L  VAKIAoLE  Willi  LARGEST  DELTA  lb  AuULU  10  REoRESbION  NEXT. 

L  F  =  F  VALUl  TO  ADO  VARIABLE  TO  RLGRLbblON.  NO  I  USED  **** 

C 

L»«*»***t*  AddIno  And  BELLI  I  No  VARIABElj  *♦♦♦♦♦♦'♦*♦♦♦♦****♦*****♦*♦*♦ 

L 

l  blLP  1  -  IriL  VARIABLE  NOT  IN  IHl  EQUATION  mlllCH  CAUSES  THE  oRKATEST 
L  CHANGE  iN  KSQ  ib  muDED  TO  THL  RLORESb I ON • 

v.  STEP  E  -  THE  VARIAdLlB  IN  IHE  LEGATION  ARE  THEN  CHlCKLD  10  bEL  IF  OIL 

l  LAN  OF  ULElTLD.  THl  VArIAull  WHICH  CAUSES  1  HE  bMALLEbl  CHANGE  In 

RSu  IS  SELECTED  r  OK  REMOVAl.  IF  THE  LOUATIUN  WITHOUT  THIS  VARIABLE 
L  PKbUUCLs  A  SblK)  WHICH  IS  SMALLER  THAN  THE  PRfc  V lOUb  bb(K>  FOR  THAT 

l  NUMBER  uF  vAKiABLtbf  T|rt  VARIABLE  lb  RlMOVED. 

L  SIlP  3  -  IF  A  VARIABLE  WAS  REMOVED#  REPLaT  bTLP 
L  oTHLhwIsl  KtF'E  A I  STEP  i  ANU 

L 

UrBBrrrrrrBrtMturNnMBBrBNrtNit.BrrBrurBrruBrrrmBr 

L 

l  11  SHOULD  Bl  NOlLL  Thai  Tilt  bT  AT  1ST  ICS  F  OK  N0N-L1NLAR  LQUATlONb 

l  SHOULD  Bl.  USLD  «l  l  H  CAkE»  AnD  SHOULu  No  1  BL  COMPARLD  1. 1  l  H  THOSE 

L  FRbM  LInLAK  L  OB/*  ]  1  UNb  *  AS  IhlY  HAVE  ill  F  F  LRENT  iwLANINgS. 

l  F  Ok  EXAMPLE  —  IF  Y  Is  lKANbFORMLD  BY  TrKINb  1Tb  LOoARlTllMr  T  III 

l  SUM  OF  IHL  SQDrtRLS  OF  I  HE  ACTUAL  RESIDUALS  bLTvvEEN  THL  CALLULARD 

l  ANl  Tht  ObSLKVLU  Y  VALUL.S  AKt  NOT  MINIMISED*  RAlHLR  IHL  SUM  OF 

l  SQUARES  OF  THL  LOGARITHMS  OF  THE  RATIOS  OF  THESE  VALUES  ARE 

L  BE  1  No  MiNiMlEEu  l  (LOG  YC  -  LOG  Y)  =  l  LOOlYC/Y)  )  ). 


V 


r  c 


C  f  HlKLFOwL  •  CoMPARlblQN  OF  A, A  STATISTICS  THAT  ARE  tiASLD  UPON  T  HE 

c  bUM  OF  Ihi.  SUUAKtb  OF  THE  Y  RESIDUALS  SULH  AS  THL  F  VALUE  OK 

0  COuKELaIIUn  COEFFICIENT  MAY  uE  MISLEADING, 

c 

v.  IT  SHOUcD  ALbO  uE  NOTED  THAT  WHEN  T ML  CUKVL  IS  FORCED  THROUGH  THL 

ort iG IN  OK  bOMt  OIHlK  SPEL  aF  ILU  Y  INT tRCLPT »  THL  DEGRLLb  OF  FREEDOM 

arl  changed  anu  Hit  cukvl  ho  longlk  oOLb  Through  thl  means  of  the 

c  v Art  1  ABLLS •  THt-rttbY  t  CHANGING  THE  VALUEb  OF  THE  STATIbllCS  AND 

MAislNG  COMPARIsIONb  OF  CURVtb  WITH  UNSPlCIHED  Y  iNTLHCtPTb 
C  MlbcEADlNo.  aLSo»  COMPARISON  OF  F  VAi-UlS  WITH  THL  bTANOAHD  F 

c  UlsTKlbuTluN  ib  NO  T  UEotbbArtiLY  VALID. 


L 

c  I Ml  UStrtS  OF  THlb  PROGRAM  Artt  UKGtU  ro  REVIEW  THE  STANDARD  TEXTS 

C  ON  KEGKlSsION  ANALYSIS  FOR  I  hE  USES  AND  LlMlTAIIONb  OE  THIS 

c  I EcMNIOUE  *  AND  DEAR  IN  MlNo  THAT  THL  SI AT1ST ICAL  RELATIONSHIPS  ARE 

c  NO  BETTER  1  HAN  THt  UATh  ThA|  WAS  UbtU  TO  COMPUTE  THEM. 

V„****t**»*****+****»+****t*+******«******»****************4************* 

COMMON  sloMA(oG) »A(b2»b2) . SIMCOR ( 52 » 52 ) . AVG(bO) »TEbT(oO) 

COMMON  POINT (oO) * STRINo ( 30uo ) » 1NDPAC ( 3o  »  30  > . INDEXP(bl) 

COMMON  INuLX ( DU ) .NOUT(UO) >KSTEP(oO) »  ALPHA ( lb > *  YMEAN# IdEN. IFAVE 

COMMON  MAaSTP.  1 F P Nc H » NbUMrt  Y  »  nSk  IP » NT  APt.9  »  NEW 

COMMON  NOV  AR »  NoKNOia  *  NObTLP  »  nL  AT  A »  NbKXY  a  » NbrtX  » LP ATH » OLE  RM » K 

common  IFDaCK#  IRCNST  •  IF  COrtrt  ,  NPKOb .  NdrtP  VK  »  TOL  r  Rj-MAKK 

COMMON  lNOLXY»U3AD,NOGOOD(2b) 

cOmMON  IFw I t Y CONST  »NYTKA»V(£f51) »  YTRA ( 2 ) 

COMMON  SToERRl JO) f CORSQR( jc) 

DOODLE  PRECISION  A,SIMcuR»Sl0MA. AVO. TEST 
c 
c 

OImlNS ION  VNmml ( 2  f  bl ) » CRubS 1 8 ) 

DIMENSION  XDA T A ( 2bb ) »  LOCA(bG)»  CONST(oi))»  NBRTRA(oO) »  RMT112>*  FM 
lllu) 

ulMtNSlOU  OV01U(14) 
u  ImENS  I  ON  lHA(o)»  ATKAI2H/) 

DA  I  A  (ATRrtll»U) »J=lr 17)  /  • a  +  C * . • X*C • . » X/C * . ♦ C/ X • r *  X ♦ *C » * * C **X • * 

1  * -NX-eC ' t  'cGX+C*  » 't**C*X*  * 'E»*C/X*  * 'blNLWX*  * *COSC*X' t *TN C**X*  » 
a  »SNHC*D»»  *cShC*U» » •TNhCwD* •  *C  TERM'  / 

DAI  A (CROSS 1 1 >  » i  =  l»b)  /*v(l)*.,V(2),»*V(3>»f»V(u)'f'Vlb)»» 

1  *  w (b) • #  *  V (7) »  »  *  V (b) *  / 
uA I  A  NKcELb » NLOR / 1 # 0/ 

oA I  A  ( KMT (o )» U-l » 12 ) /bH ( 7E1U .» 2HU )» lu*lH  / 

OAIA  BLaNR/IH  / 

DA  I  A  AX/lHX/r AI/lnY/ 

UA  I  M  START  #  VO  iCLU*  SEARCH «  TR„N.  FOR  AMT/bHb  TART  •  bHVO  IDLo »  oHSL  ARCH » t>H 
1  TkA—  #t>HJFMT  / 

C 

OAIA  ( XuA T « ( I ) i 1 - 1 f 1 0 )  / 

1  ocHISElECTED  PLKCLNTlLE  VAlUES  OF  THE  bTUDLNT  T  DISTulbUTION  /. 
c.  ( XDA  TA(i)  *1-11*23)  /7uh  .10  »ub  .ul 

j  E OR  DlKtcTlONAL  (oNl-TAILED)  TLSI  /« 

a(XuATAU)  »l=2HOb)/  7bH  D.F. 
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I 

»  b  .£0  .1U  .02  FOR  NONuIKELTIOnAL  ( Tm/O-T A ILEO )  TES 

uT  / 

•  uAIA  (  aDAI A ( J) * J- 37 * 166 ) /4n  1 * 3. 078 * b. 313 * 31 • 821 *4d  2*1.886* 


1 

2.920*u 

•9b5*4n  3*1 

o38* 

2. 353*  4 

.  541  *  4h 

4* 1.533*2.132*3.747* 

c. 

4h 

b» 

1 < 476  *2«ylb*3 

36b* 

4h 

b 

*  1 . 44u  * 

1.943*3.143* 

J 

4n 

7* 

1 .415* l»b9b*2 

998* 

4F> 

8 

*1.397* 

1.660*2.896* 

4 

4d 

9 1 

1 . 383* 1  *  83b*  2 

821* 

4h 

lo 

*1.372* 

1.612*2.764* 

b 

4rt 

11* 

1* 363*1. 79b»2 

718* 

4d 

12 

►  1 • 35o* 

1.782*2.681* 

b 

4(i 

13  * 

1.350*1.771*2 

650  * 

4H 

14 

*1.345* 

1.761*2.624* 

7 

4h 

1  b  t 

1.341* 1.753*2 

o02  * 

4h 

lb 

*  1 . 337 » 

1.746*2.536* 

b 

4N 

1 7 » 

l.o33*1.74o*2 

567  * 

4H 

18 

*  1 . 33  o  * 

1.734*2.552* 

9 

4h 

19 » 

1.328* 1.729*2 

539* 

41 1 

20 

*1.326* 

1.725*2.528* 

t> 

4(1 

21  • 

1.023*1.721*2 

518* 

4H 

22 

*1.321* 

1.717*2.508* 

b 

4d 

23  ► 

1.019*1.714*2 

500  * 

4h 

24 

*1.316* 

1.711*2.492  * 

b 

4n 

25  * 

1.316*1.708*2 

485* 

4H 

26 

* i.3lb* 

1 . 7o6»  2.479  * 

b 

4ii 

27* 

1.314*1.703*2 

473* 

4H 

28 

*1.313* 

1.701*2.467* 

% 

4ft 

29* 

1.311*1.699*2 

462  * 

4(1 

30 

*  1 . 3 1  o  * 

1.697*2.457* 

b 

4tl 

40* 

1.303*1.684*2 

423* 

4H 

50 

*  1 . 29b  * 

l.b76*2.403* 

b 

4h 

60  * 

1 • 296  *  1 »b7l *  2 

390* 

4Fi 

8o 

*1.292* 

1 • b64  *  2 . 374  * 

b 

4d 

100* 

1 . 290  *  1 »  6bu  *  2 

365  * 

4Fl 

200 

*  1 . 28b* 

1 • b53*  2 • 345  * 

b 

4(1 

bOO  * 

1 . 283*1*  648*2 

334* 

4H 

INF 

*1.282* 

l.b45*2.326  / 

rtKiTt.  (o*9b0)  (XUATAIJ) ,b=l*166) 

V. 

10  CALL  SLlTL  (o) 

l»0  20  J-l*30 
00  2O  K-l *  30 

cC  INl/PaC (J*K)=0 

v»H  IT E  tu» 9b0 ) 

L 

kLmO  <5* 1100»LWO=940)  NPRUo , NXV *  NY V ► INueX Y * NOA 1 A  * IDEN* InTYPE*NREAR 
1*MaXSTP*  IFbACK*NSTART*MINbU,.i*MAXSUM*MAXREG*  IFWT*  IFCNS1 * IFLIST*IFSIJ 
^MS»  lFAVt* IFC0RK*NCR0bS,  IF  [RA * NSK IP *  IFSUd * NF Ml *  iFPNCH * 1FDATE * IFNAME 

L 

rtKiTE  (or  118u)  riPKub*NXV*NYv*  INDEXY * NDaTA * IUEN*  INTYPE*  NREAR * MAXbTP 
l*lFbACK*NbTART*  MINIUM*  MAXbUM *  MAXREG*  IF*  I  * 1FCNST * IFLIS1 * IFSUMS* IFAV 
2L*  iFCOKR*NLRUbb*  1FTRa»NSK IP *  lFSUd*NFMT*  IFPNCH *  iFDATE.  iFNAME 
ul-bL ANK 
02=bLANx 

L  OATE  ib  MAP  b/K  TO  PlLR  uATE  OFF  SeuUEnCE  LARD 

IF  ( IFDaTL.Eu.O)  CALL  DATE  ( ul  * 02 ) 

PRINT  1130*  NPkUB»NXV»imYV#  IimuEXY»  INTYPe 
NBkNOW=NSTaRT 
IF  (NFMf.NL.O)  00  TO  40 
00  00  J=1*12 

3J  FMI ( J)=RM1 ( J ) 

40  CONTINUE 

IF  t  NuAl rt • Le *  0 ) NO A lA-lOoQO 

NW1  T=NXV  +  NYV 

iFlIF«lT.NE.O)N*IT=NWTT  +  l 

IF  IIFSUB.GT.O)  CALL  NbROt-X  UFSUb*NXV) 

nSIeP=U 

NbUMHY=0 
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1  Ol-O • OuGOl 
uURXY=NXV+l 

l  NUKX  -  NUMutK  OF  INDEPENDENT  VARlwbLEb 

l  NURxY  -  NUMbEK  OF  INDEPENDENT  VAkI AuLEb  +  uEPENDENT  VARIABLE 

L  NBKxYw-  bldE  OF  ARRAY  =  nDKXY  ♦  1 

v.  NbRNQw  =  .MuMbLR  OF  COLFF  1C ILNTb  FOR  PRESENT  EQUATION 

o  INDEX  =  IimuEX  OF  PRESENT  EQUATIOim 

iF  tMAXSTP.EQ.0)MAXbTP=y96 
IF  INAXKeG.ET  .jJMAXRtb^S 

L 

V-  lo  store  DATa  01.  TaPl  For  DSL  IN  ANOTHER  F'ROdLtM »  SET  INTYPE=i 

0  F  OR  KEw  I  NO  *  1  NT  YPE-d  FWR  NO  REwINu 

o  10  UbL  DATm  FRoM  A  pREViOUS  PRObLEM  bLT  INTYPE  =  £  OR  5* 

0  THEREBY  CAUblNo  TAPE  10  REWIND. 

0  INTYPE  =  4  OK  o  FOR  BIN.  TaPE  10  OR  11  TO  dE  USED  AS  INPUT 

E  ALSO  PREVENTS  TAP,.  REWIND  AT  bl  ART  OF  PROBLEM. 

wRewdS- i 

IF  (INI  YPe.NE.7)  Oo  TO  t>0 
NRewBS=u 
INI YPE=J 
bO  wTaPL=1U 

nREAD=0 

n  w  r  I T E-0 

IF  ( INT  YPe.EQ.u)  00  TO  t>0 

IF  l  INTYPE.eO.  l.OR.  i.NTYPE.Eo.O)NWRITE=l 

IF l INTYPE.eQ.S.OR. INTYPE. EQ.o) NT APE=11 

IF  l INTYPe. EG. i. UK. 1NTYPE. tQ. 2. OR. INTYPE.EO. 5)  REWIND  NTAPE 
if ( intype . nE .i.and.inT ype • ne . 3 ) nread^i 

E 

o  NUMbER  OF  INDEPENDENT  +  DEPENDENT  VARlAbLEb 

oO  nToTAL=NXV+NYV 

NEw=NXV+ INuEXY 
IF  TNToTAL.LE.Jd)  DO  To  7u 
C  TOO  MANY  VARIABLES 

nT oT  AL-NE rt 

IF  T  I'iTOl  AE . LE  .  Sl  )  00  To  7o 
write  lu»9/0)  imToTAL 
GAEL  EXIT 
VO  WObT  t  P-0 

IF  (wCROSb.Eu.O)  oo  TO  rO  ^ 

NOvAR=  (i.duXY*  INDRXY  +  l  >  )/d 
IF  lNOVAR.Lt .Si)  oo  TO  90 
nCrOSS-O 
WR 1 IE  (orloCu) 
oO  NOV AR=NuKXY 

90  IF  l  IFCNbT  .ET  .  J)noVAR=NoVAR*-1 

NDRXY  W-i^OVaR  +  1 
ndRX— NOV AR~ 1 

mAa  V  AK-Mli'tO  (  MAXbDM  »  MAXRLo  »  NbRX  ) 

l  reao  lontroe  Card  l 

IF  (IDEw)  I20»l0o»13o 
iOO  oO  110  J=i t  lo 
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I 

I 


LOU 


ALPHA  (0)=l>LAI(K 

iOlN=IAuS  ( 1DUW 

uO  TO  loG 

UO  140  i— 1 » I  DEN 

KEau  (b»96u)  ( ALPHA ( J) »o=l* lb) 

wRiTc  (O»yyo;  (alpha* J) , j=i, ib) 

COwlINUE 

reau  control,  card  u 
UO  160  0—1 » 60 
*b  I EP  ( O )  =1 
TtbT ( J)=+2.0E+oJ 
IF  (NSTaHT)  190»22u>l7u 

REau  ( b • 10b0 )  ITEST ( J) , INULx( J> »0=1»NBRN0W) 

PACK  INDEX 
UO  160  0=lfNbRN0W 
CAuL  PAlK  (NbRNUW' J* INuEX(O) »1) 
oO  TO  210 
NBRNOW=NX\< 

UO  200  0=1 t NBKWOW 

Caul  pack  (Nbrnow*  j»j»d 
TEb  T  ( J) =1 » oDo 

IFlNSTAKT.uT.-DTCbTl  J)=0.0 

WRITE  (o»1090)  bl ART » (TEST (j) » INDEX (J) r 0=1 »NBRnOW) 

MIuV  AR=NiAXu  ( 1  *  HiNbUM) 
nTAPE9=1 

IF  ( IFBACK.EO.O)  Co  TO  230 
IF  (NL'ATA+NBRX  f  w  »LE  •  3000 )  Do  TO  230 
nTmPL9=0 
REwil'lD  9 

uO  240  1  =  1  f  NDKX f W 
UO  240  o=lfNbRArn 
A ( 1 » 0 ) =U  »  0 

reau  control  Card  e 
IF  (NSRIP.lE.O)  (jC  TO  29u 
REAU  (5»lio0)  (JVOID(O) , J=l,l4) 

OV  =  0 

UO  260  L=1 » 28» «: 

N0o00D(u)=0 
hOoOOD (l+1 ) =o 
IF  (JV.L0.14)  oU  To  280 
OV=JV+l 

IF  (OVOiD(wV))  270  1 2b0 1 26U 
N0o00D(l)=0V0Il<(0V) 

N0u00D(l+1)=JVoIu(0V) 

LBAU=L+1 

iF  l OVOlD (oV+1 )  )  c:b0.2b0»cbL 
i^OoOOD ( L+1 )  =1  Aub (OVOID  l  JV  )  ) 

CONT INUl 

NSn IP= iAbb(NbKlP) 

IF  (NSKIP.nE.O)  WRITE  lb»1110>  VOIDED* (NOGOOD(o) * J=1*LBAD) 

read  control  card  f 

L0uK=0 


I 
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IF  (NREAR)  310020*300 

C  IF  NREAR=1  READ  SET  OF  SEARCH  PARAMETERS. 

JOo  NNXJ=NXV 

IF  ( 1FWT.NE.0)NNXJ=NXV+1 

REaD  (5*1100)  NWORUS.LOCY* (lOCX(J) * J=1*NNXJ) 

31u  WRITE  (o* 1110)  SEARCH  *  NtoOROs  *  LOCY * (LOCX ( J) ►  J=1  * NNX J) 

LOOK— 1 

320  CONTINUE 

C  READ  CONTROL  CARD  0 

c  read  transformations 

IF  (IFTRA.OT.O)  RLAD  (bflOdu)  ( CONST  1 1 )  *  NtJRTRA  ( I )  » 1  =  1  *  NTOTAL ) 

IF  (IFL1ST.NE.0)  Go  TO  330 

WRITE  (o*116u)  ALPHA*Dl,D2* (AX* J* J=1*NXV) * (AY* J* J=1*NVV) 

33o  Nw)=NTOTAL 

IF  (IFTRA.NE.O)  WRITE  (6*1090)  TRAN* ( CONST ( I )* NBRTRA ( 1 )» 1  =  1  * NTOTAL 
1) 

C  REAu  CONTROL  CARD  H  NAME  OF  VARIABLES 

IF  (IFNAME)  370*360*340 
340  DO  350  3=1  *  2 

UO  350  L=1*NT01AL 
350  VNaME ( J  *  L) =BLANK 
oO  TO  370 

3bo  READ  (5*1140)  ( (VNAME( J»L) * j=l*2) *L=1*NT0TaL) 

37o  IF  (1FL1ST.EO.O)  WRITE  (6*1150)  (( VNAME ( J* L )* J=1 *  2 )* L=l * NTOTAL ) 

C 

C  REAU  CONTROL.  CARD  1  (  VARIABLE  FORMAT  ) 

IF  (NFMT.GT.O)  READ  (5*1120)  FMT 
IF  (NFMT.NE.O)  WRITE  (o* 1120)  FORAMT*FMT 
IF(lFwT.NE.0)NwT=NiOTAL+l 
NSKIP=IABS(NSMP) 

NBAD=0 

YCoNST=CONST(NEW) 

DAI  A  ACT*UAL/oHACjUAL*lH  / 

YTRA ( 1 ) =ACT 
YTKA(2)=UAL 
J=NBRTRA ( NEW ) 

NY1 RA=0 

IF  (1FTRA.EQ.0.OR.J.EQ.0)  Go  TO  380 
IF (NBRTRA (NEW) .EQ»7) NYTRA=-1 
1F(NBRTRA(NEW) • EU • a ) NY  TRA=+1 
YTRA(1)=ATrA(1* J) 

YTRA(2)=ATRA(2* J) 

380  CONTINUE 
C 

c 

UO  590  W=1*NDATA 
IF  (NREAD)  490*440*390 
390  IF  (LOOK)  400*400*420 

400  IF  (ENDKIL(NTAPE*NrEELS*NEOF) )  410*930*410 

410  KEAO  (NTAPE)  (P01NJ( j) , j=1»NwTT) 

GO  TO  490 

420  IF  (ENDHL(NTAPE*NREELS*N£OF)  )  430*930*430 


43c  RL  mu  (NIAPt.)  ( auAT A ( J ) » J=1 * NwORDS) 

UO  lu  470 
u 

4>+u  iF  (L00i\)  *+5u»46U'4bO 

450  READ  (b.FM)  IP0IMT(  J)  »J=1»imwTT) 

IF  (I'iWKiTt.NE.u)  WRITE  (1U)  ( POINT (J) » u=l » NWTT ) 
uO  10  4y0 

4uU  kEmU  (6»FM1)  (XUA I  A ( J) » J=1 »uftOKDS) 

IF  (NwRITl.NE.O)  WRITE  (10)  (XDATA(  J)  #  U=1»NW0RUS) 

470  uO  400  U=1#NN*U 
uLuC=LOCX( J) 

4ou  P01NT(u)=XUATA(JL0C) 

POINT (NwT)=POlNT(NNXJ) 

P01NT(NtW)=XUATA(LOCY) 

C 

0  CHECK  FOR  tuD  OF  DATA  INDICATOR 

4yu  IF  (POlNT(l)  .tvn. 99999999. )  00  TO  600 

JDm  t a=n 

IF  (IFbUB.bT.O)  CALL  EUUAT  ( iFSUB » POINT ) 

IF  (IFLIST.EO.O)  WRITE  (6nobO)  N* (POINT ( J) » J=i r NWT ) 

IF  (IFTRA.tQ.O)  GO  TO  600 

CALL  CH Allot  (POINT  # N6RTRA » CONST #NTOTAL) 

IF  (IFLIST.EO.O)  WRITE  <brlu70)  N» (POInT l U) . J=1 »NWT ) 

c 

60u  COwTlNUu 
C 

POiNT(NUVAK)=POiNT (NEW) 
wHT-1 . C 

IF ( IFwT.Nt. 0) WHl=POlNT(NW  r ) 

POiNT  (  imoRXYW  )  =  wriT 
IF  (imCRuSS.EO.u)  CO  TO  5<iU 

u  CR0S5  PRODUCTS  ARE  USED  AS  INDEPENDENT  VARIABLES 

L=iMbKXY 

UO  610  i=<d»NBRAf 
JG  610  J=l»NbRXY 
POINT (L)=PoINT(l-i)*POlNT ( J-D 
610  C=L+1 

6«io  IF  ( 1FCNST. lT. 0 ) POINT  (NOVAK-i  )  =1.0 

IF  (IFBACK.EU.O)  Go  TO  bbu 
IF  (NTAPE9.EQ.0)  Go  TO  540 

C  STORE  IN  STKINo  IF  DATA  POINTS  *  VARIABLES  LESS  ThAN  3000 

UO  630  J=1»NBKXYw 
OJ=NBRXYW* (N-l ) +D 
5ju  STniNGl JJ)=P0InT  (<j) 
oO  TO  660 

C  STORE  Data  ON  IAPc  y  IF  DaTa  POINTS  *  VARIABLES  EXCEED  3000 

64w  wklTt  (y)  ( POIilT  O'  )  * K=1 » NOrf aR)  » WHT 

c 

aau  CONTINUE 

*F  (NSKiP.tQ.O)  GO  TO  670 

v.  CHEuK  TO  StE  IF  POINT  is  To  BE  DELATED  FROlw  REGRESSION 

UO  6b0  U=i * LHAd > 2 
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300 

0 

J/o 

c 


0 

300 

3y  u 
L 
0 
0 

oOu 


V. 


o 


olo 


b2u 


Oio 


IF  IN.lI  . uoGOuu l J )  . OR .N. 01  .|\jOGOOU(J+l)  )  00  TO  bbO 
WbMU  =  NbAL)  +  l 

00  10  byo 
COfMl  iNUt 

00  bdO  1  =  1  # NOVmK 
bfJM  X(l) 

A(  1  »NBKAYk.)=A(  1  #NbRXYrf)  +Pul„iT  ( I  )*WHT 
uO  bdO  0=1 » NOVAK 
bUM  Xll)*XlJ) 

A( i» J)=A( 1 » J) +POIUT ( 1 ) *P0IN1 l J) ♦WHT 
A  ( iMbKX  Y  w»UuFXY»«)=AlNdKXYW»  UbKXY  *1 )  +WHT 
CONTINUE 


i'JOaI  a= JuAT A-NUau 
JER  KM=imuA  T  m 

JENOMrA  l  NbKXY  W  t  Nb^XYW  )  -1 . 0 
IFllFwT*  Nt  •  0 )  Oc.f'IO^  =DENbM+l  •  j 
IF  (NTAPE9.EU.0)  KtWlNu  9 
IF  lNRtwbb.EQ»U)  REtolNu  11 

•  Kilt  ( b » 1 1 7o )  tMPhob # AEPHa » NUATA  r  NO V  AR » A ( NbRX » NBRX Y n )  ,01*02 

K  =  2 

iFUFTKA.Lu.U)i\=l 

mKiTE  iorlulu)  l  bEANK » J=l • K ) 

«KiTE  (o* lo2o ) 

1X1=60 

1X2=0 

OO  DbO  u=l»NOVAK 

(Mt.AN=A(  J’NBRXY«)/A(NB}<XY*f  NbRXY«) 

bTuLV=SviiRT  (ABb(  (A(  J»  J)-A(  J»ubRXY*)  *YmEan)/OENOM  ) 

TKA(1)=JLANK 
1  Pa  1 2 )  =oLhI\K 
V(lf J)=VNaME(1* J) 

V  («.» J)=VNANiE  (2»  J) 

L=0 

»\=2 

IF  (J.Gf.NXV)  60  To  63u 
IF  (  lFTrtA •  t-Q •  o )  00  TO  obo 

l=t\.bKTPA(u) 

iF  (I.Lt-.G)  00  TO  obO 
K  =  0 

lKA(3)=oOiJbT  (L) 

TWA 1 1 ) =aTra  11*1) 
fRA(2)=ATKA(2U) 
oO  TO  bbO 
1-17 

V ( 1 *  O) =aTKA ( 1 » 1 ) 

V  (e.»0)=rtTr<A(2»i) 


if-  1 1 F  Li.b  1  •  LT  » 0  *  ANu  •  J » LQ •  NO v  AR**  1 )  60  To  o2u 
l.=inXV  +  INUlXY 

V  ( 1  #  J  )  =  VWAME ( 1 #  L ) 

V  (c#U)  =  VNAXiE  (2»L) 

IF  l  J » Lvx  •  H6V AK )  60  TO  olO 
o  CRU'oS  PRUOULTb 

1X1=1X1+1 

IF  (IXI.LL.NXV)  60  TO  o40 

1X<;-1X2  +  1 

iXi=lX2 

o4o  aRITE  l o » lo40 )  o »  T|V|E.AN» sTulv  » 1X2 » 1X1 
V(l#o)=LR0bS(lA2) 

V(2* J)=CRObS(IXl) 

60  TO  ouO 

obo  IF  ( J • Eo • NoVAR )  GO  TO  ubO 

aKITl  (o»lo3u)  V(l# J) #V(2#U) #U,YMEAN#STlEV# (TRA(L) »L=1#K) 
uoO  CQnTINUl 

wRITL  lo.iubO)  VU#J)  »V(2>J)  »YMEAN»STDLV»  (TRA(l)  »L=1»K) 

C 

if  UFbOMb.Eo.u)  call  prTguis 

IF  (  IFCimST  .NE.O)  Go  TO  b70 
Call  Rtblu 
oEF  KMsOLFRM- I • 0 
o7o  CALL  COHRLL 

CALL  SLlTET  1 1 » LI&hT ) 

IF  (LIGHT. LG. I)  60  TO  10 

NUaTA=UUA1a 

w5MP=NbAu 

IF  (MAXbTP.EQ.999)  WRITE  (o#i220> 

C  ****************************************************************** 

c 

b bo  lPAT  H= 1 

KPaTH=1 

IF  (NBRhOW.GT.u)  Go  TO  02  U 
o9o  IF  ( A  (NOVAk.ImOVAR)  .GT.o.O)  yO  TO  730 
wRiTt  (o.lLOG)  A(N0VAR»N0VAR) 

PRINT  lcOO#  A(tvOVAR»^OVAR) 

60  TO  bbO 
C 

/06  OP-0 

NbftP VR— NUKNOw 
NbKNOW=NbKNOW-l 
GO  710  0=l#NtiRPVK 
CALL  PACK  ( NtiRPVR » J#  u » 1 ) 

IF  (INOlX(o) .L*.K>  GO  TO  7lj 
JP=UP+1 

lAlL  PAlK  (NbKNOW»OP»lN0E.X(o)  *1) 

/lb  CONTINUE 

00  720  1  =  1  # NOVAK 
00  720  6=1# NOVAK 
720  A(l#J)=bIMtOH(l»j) 

60  TO  bbO 
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c 

730  C AlL  ADuTO 

CALL  SLITET  ( i »  LIGhT ) 
oO  TO  (560 »  740 ) *  LIGHT 
74u  60  TO  ( 600 » 830 » 600 ) t  LPATH 

L 

7b0  TEST (NBKNOw ) =A (NOVAR » NOVAR ) 

760  CALL  OUTPUT 

CALL  SLITET  (2»LIGhT) 

IF  (LIGHT. LQ.l)  GO  TO  700 
NS1EP=NSTEP+1 

IF  (NSTtP.GT .MAXSTP)  GO  TO  doO 
IF  (NBKNOW.GE.MAXREG)  GO  TO  860 
CALL  SLITET  (1#LIGhT) 

GO  TO  (860»770> t  LIGHT 
770  GO  TO  ( 790 » 780 » 10 )  »  KPATH 
7dO  KPaTH=1 

790  IF  (NBRnOw.LE.2)  Go  TO  8lO 
CAcL  remove 

IF  (REMARK. EQ. 0.0)  GO  TO  810 
LPATH=1 

600  CALL  MATRIX 

GO  TO  ( 760»8S0»610) »  LPATH 
610  IF  (NBRN0W.LT.N8RX)  GO  TO  b9G 
WRITE  (6*1190) 

GO  TO  860 
820  KPATH=2 
o30  L=1 

LPATH=2 

840  CONTINUL 

CALL  PACK  (NBKn0w*L*K*2) 

GO  TO  800 

L  *********************  TRY  AOJUNCTION  *************************** 

6bO  l.=L+1 

IF  (L.LE.NBRNQw)  Go  TO  8^0 
oO  TO  ( 610  *  7bO *910) *  KPATH 
C 

c  summary 

660  WRITE  ( 6 * 1230 )  ALPHA*NpROu 

IF ( IF0ACK.EQ.998) IF8ACk=NSTeP 
IFdFBACK.t-Q.999)  IFBACk=1 
IF ( MAXSTP. EQ. 999) MAXSTp=998 
UO  680  J=1*N6Rn0w 
DO  870  L=1*J 

870  CAt-L  PACK  (J*L*INDEX(L) ,2) 

IF  ( INDEX ( 1 ) . Lt . 0 )  GO  TO  86u 

WRITE  (o* 1240 )  UtKSTEP l  J)  * STDERR ( J) *  CORSQR l  J)  *  ( INDEX (L ) *  L=1 *U) 

660  CONTINUE 
KPaTH=3 
NbRNOW=MlNVAR 
NSUMRY=1 

890  IF  (NBRNOw.GT.MAXVAR)  GO  To  10 
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9yy 

91* 

920 

9yy 

94* 

V. 

* 

C 

V, 

9bw 

Vt>0 


V/* 

9o* 

9** 

iOuj 

1010 


i.J20 
i  Joo 
1  Oh  J 
iObO 
1  Ou  J 

i070 

xObO 

1090 

11*0 

AilO 

lit  0 

iljj 

A  1  4  0 

UbJ 

iioO 

A  A  7U 


lloO 


LA4.L  PACK  IftbKiMOte  *  1  t  J  ►  c. ) 

IF  4j.Lt_.u)  00  To  92* 
uO  900  i  =  l  * NOVAK 
uO  9*0  J=1#NOVmK 
a  4  i  *  J  )  -oii*icOK  l  i  •  J  ) 
uO  TO  ojG 
* Ai_L  OUlPol 

MbRNUW  =  ixOKRC  A  ♦  A 

oG  TO  690 

rtKITt  4u*Atly)  *JUHT  A  * ( PO  IN  T i O ) r  J=1 *  Nn  T  I ) 
bT  OF' 


r  Or.'  AT  lioMri//i0Ab/10Ao//4J(A4»2X»0hl0.0/)  ) 

FOrMAT  14  / r 1 1  NONbiMPLE  STlP,(1Se  MULTIPLE  LINEAk  REoREbblON4bX23HAF 
IMYcOMPUlAl  10uU-NTLr/92a2Gfu,m.',Y  MlbSiLE  COMMAND/ 92X2brlREuST0NE  ARSF 
ti<Ai-»  ALmumMA) 

F  OrMAT  437ii0  TOTAL  i\.uMut.R  OF  VmRIABi-lS  TOO  LAR*El6 ) 

F CkMAT  l loAb ) 

FORMAT  4/bA*lbrtb) 

Fori- AT  44 /H  orOSU  PROuUCTo  yELETEO  *  Ab  THlRE  ARE  TOO  MANY//) 
FORMAT  420A3bMVAK  WTED  AvoRAol.  bTANu.  DtV.  * 2A1  OX ►  2bHTRANS 

iFOrMATION  CONbTRivT) 

FOrMAT  l 1a) 

FORMAT  47A*2Mo*0*iAf2c.lo.b»oX*2Ao*Lio.4) 

FORMAT  4  19a  *  1 3  *  IX  *  2E  16»  b*  ox  #  2F4X  4 12  *  OH )  ♦  X412*1H)) 

FOrMAT  47a*2Ao*oFi  Y  » 1 A *  2t-  io  •  b  *  oX *  2Ao * i_  lo  •  4  ) 

FOrMA I  l  i9*  IX*  ijH2.3/(10a»1jF12.  J)  ) 

FORMAT  IbX* lMlio* 1H) *l0F 12.3/ (10X*10F 12.3) ) 

PCrMAT  474f8.U*12)) 

F OrMAT  4 lno *  3XAo *  1  *  4  F 1 y • 3  *  12 ) / 4 luX  *  1 j  4  F 1 0 «  b *  12 )  )  ) 

FORMAT  (l4ib) 

FGrMAT  4  lily  *  Ao  *  24  1  b/  4  7x24  1  b  )  ) 

F  OrMAT  4 1  i«b ) 

FORMAT  43*A*bMUMTA  btTit>*10x*41b) 

F  ORMAT  4  7  4  A6  *  A4 ) ) 

FOrMAT  il2A20Au) 

FORMAT  434hl  *  *  INFO  |  DATA  *  ♦bxloAb * 2XAo * A2//6 4 9X * 

il0  47XAl*l»i4I2*iH)  )/)  ) 

FORMAT  437FilbTt-PftlbL  RLGKubblON  PROuoE.-i  NUMBER  lb*  10XloA5/23H  NUM 
ioER  OF  OBbcRVAl  iONbmX*  Ib/2yn  NUMBER  OF  V Ar I ABLEbl 7X I b/30H  WEIOHTE 
24/  uEOFi-C-b  oF  F'rlEooM  F  12 .  b  *  78X2At>// ) 

FORMAT  4//o5h  PROGRhm,  CONTROL  b////loH  NPROB  =  1 

ib* lOh  NA V  -lb'lOU  NY  V  =Ib*lGH  lNuEXY=lb* lOh  NDATA  =15* 
c.  10fi  luEN  =1  b  *  lOFt  iNTYPL=lb//10H  UREAR  =lb*loH  MAXbTP=lb»l 

bJM  IFuAci\  =  Ib*  1  UF«  NbT AR  T=1 5 *  I UF4  MlixbUM=I5*  luh  MAXSUM=I5*  10H 

4  MAXR«_0=15//1oH  IFwT  =  ib’10Fi  lFoNST=Ib*  10H  1FLIST  =  15*  10H 

b  IF  bUMb=ib*  ion  AFREb  =  1  b » 1 4)h  lFC0KK=lb*  lOn  uCROSS=Ib//lyH 
o  lFTRA  = I b *  1  *  1 4  NVOIU  =Ib*ijH  IFbUB  =Ib*luH  NFMT  =I5*10H  I 
/FPl«Ch=ib*  1*FI  IF  OATt.=  1  b  *  loH  IFNAML=*lb) 
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HSG  ROrmAT  IbiHO  ****************  VARlAbL.ES  EXHAUSTED  ************/) 
12GU  FORMAT  IflOriO*************  PROBLEM  TERMINATED*  SUM  OF  SQUARES  IS  NO 
IN-KUSH  iVt.  **************Llb«  5/ ) 

1UJ  Format  1//S4H  LND  OF  File  REACHED  AFTER  READlNslb»oH  POINTS. /2GH0L 

i asi  oqsukwhTijim  is// uA,atio.a) ) 

1^:20  FORMAT  IbbHlMUL  riPLE  LINEAR  REGRESSION  STEPS) 

1230  FORMAT  L34hlSUMMARY  of  uES )  SETS  OF  \ZARlAdLES»2X16A5»yH  PR0BLEMI6 
iV/2bH  N  S1EP  STD  ERR  rsQ//) 

1240  ROrMAT  <1X* I2*14*Fll.3*F9.0r iX*3SI3/2Ba*3S13) 
t,Nu 
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bUDftOUT  iwi_  OUTHUT 

EOhF'OU  j  1  br-iA  ( oo )  #  A  l  52  •  52 )  •  biMCOR  ( 52  >  52  )  rAVo(bO)  •  TEbT  l  oO ) 
oOMON  POINT (oO)  >STRINo(30oU>  •  INDPmC  ( 3j»  30) >  IfJDEXP(bl ) 

EOi'iPOf  i  LJul-X  ( bo  )  t  I»UU1  ( oO  )  »aSTEP(oO)  »  mLPHA  ( lb )  >  YMEAN  t  1dEn» IF  A  VE 

COi»iNiUN  pIAajTP »  ir  PI«EH  t  NbUNift  Y  »  hSK  IP»NTAPc.9»NEw 

EGpiMON  uO  V  mR  •  NoKNOw  .NObTEPn^oATA*  NbKX  Y »  NbRX  t  LPATH  t  Dt.F  RM  *  K 

EONFiuN  IFbACKr iFCNST  •  IFCORR  *  NPKOB » NbKPVR  *  TOL  r  REMARK 

COpiMOU  INDEX  Y  >  LuAE  ,  NOGOOD  (  2b  ) 

COMMON  iF  n  1  t  Y  CONST  »NYTra*v12»51)  *  YTK A ( 2 ) 

COi-iMON  S  1  uEKrv  l  5(j )  r  CORbQK  (  bo  ) 
duudLE  PRLoISiuh  A  t  S 1  MOOR »  b  i  eMA  t  AVb »  T  EbT 
C 

DIMENSION  COLFF(bl).  AbCtb; 

UUubLL  PRECISION  EOEFFrCONbT 

uOudLE  PRECISION  SuMSQ  >  TSb  •  51  GY  2  *  SI  GY 

uCubLE  PREcISIuN  YpREDr  YOuS , uEV » RSu » SQKLO » bQREo2 

uOubLE  PRc.ClSiUi'i  DE  VSu  >  Ch  1  ji,  >  SUMSuU »  CM  I  bOU  t  DE  V  U  r  YO  #  YE 

JAIA  bLMl'JK/lh  /  » \/OID/bhVOiULb/»CHECK/brlKEVlEW/ 

UA 1  A  AETUML/uMACTUAL/ 

E  NbKNO*  =  WE»MbER  oF  COtFF  iC IEWTS  FOk  PRbbENT  EQUAl  ION 

E  INDEX  =  INDEX  OF  PRESENT  EQUATION 

E  riSUMKY  =  0  FOK  uUlLUlNb  PHASE.  =  1  FOR  SUMMARY  PHMSL. 

i\PaTH=1 

IF  (NSKiP.NE.OJ  KRAI H=2 
ah  I =1 .  o 

I  Sb  -  S i eMa  ( i.uV mk  )  +blG|v|A  ( [40 V  AR  ) 

EAll  SLiTc.1  (1»i_Iv>HT) 
gO  10  (10»20)r  DlbhT 

iu  E«i_L  SLiTd  (  1 ) 
oO  TO  30 

eO  NUj  I  EP-ixObl  EP+ 1 

IF  (NSUMKY.EQ.l)  i •OSTEb=Kb  1  LP ( NBRNO*  ) 
jo  uO  hO  J-l»on 
40  nOuT ( j ) -0 

dO  5o  J— 1 i NBRNoifc 

lAlL  PACK  l NBKNOkv » J t 1 . £ ) 

INdEX ( J ) -1 
NObf ( I )=1 

o  bET  m  =  AllfNuVAR) 

jo  EOlFF  (  J  )  -  A  l  I  » NO  4AK  )  *SloMA  (NuV  AR  )  /SI OKA  l  i  ) 

IF  (IFCi4Si.EQ.o4  Go  TO  o0 

EONbT=O.0 

oO  TO  bo 

uo  COwbT  =  AwGU.OVAk) 
dO  7U  I-l»l.bRNOA 
O=AN0EA ( I ) 

/J  COnbT=CONbl -(EDufF ( I ) * A VOlo) ) 
oo  bUi-iSGl  —  A  (  uOV  t  NE  V  AR  )  *  I  b  j 
XVmR-NDR 40a 
dEF  R-PEF  Ri*i-XV  AR 
NDc.FR-dc.FK 
NDeF  kW^dEF rv 
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IF  (MAXilV.Lu.^y)  GO  10  230 

IF  llFeACK.EG.O.OR.IF3ACK.t>l  .NoSTEF)  Gu  TO  230 


v.  **♦*  COi^IFu  1 E  lIACK  SOLUTION 

SIoY-DbuR  T  ( SUMsu/UEF R ) 
imAoC  -  i 

IF (  IFhI.Nu.O  )  NMjC  =  2 
iFUmYTRm.Uc.O)  NAbC  =  b 
IF  l  NDEr R •  lE  #  j  )  SlGY  —  U»uuO 
SUi'iSG^G  •  0UO 

ChiSo  =  0»oDo 
SUMSuU  =  u.Ouo 
ChiSGU  -  0.000 
nOnO  —  u 

NUr<OP=ti 

t-Iwt.=5G 

c 

uO  22 0  n=1»NUATa 
IF  (NTAPE9.NE.G)  uo  TO  90 
kLhu  (y;  (POIN1  l L >  »L  =  l»N0VMr<)  »WHT 
oO  TO  110 
90  JJ-NoRAfW* (N-i> 

00  100  L=l» NOVAK 
KK=uJ+L 

10U  PG1NT(U=S1RIngIKK> 

<JJ— NfcR  A Y  W*N 
*H'I  =STRIIMGl  JJ) 

0 

1 1  o  YPrrEU— CONST 

UO  120  I=1»NBkn0w 
0=iNUEAlI) 

12u  YPkEu= YPRcU+COt-FF  ( I )  *P0INT  ( jJ 

0 

YObS=PCiNl l NOVAK) 

UEV  =  YPRc.O-YObS 
oEvN=DLV/SiGY 

iF  l  NDEKR  •  LL •  J  )  uEVN  -  J.O 
PC  f=OEV/YOuS*iuO.O 
G00U=BLANK 

IF  (AbblULVN) .UT.O.S)  oOOl)=CHECK 
GO  TO  (ISO* 130) *  KPATH 
i3o  UO  140  G-l»LbAU>2 

IF  Usi.Ll  .imuGOUU(o)  .OR.N.GT  .nOGOOUt  J+l)  )  GO  TO  140 
OOuU^VOiL) 

NbAL)=NbAU  +  l 

IF  ( UBAl) •  Eg  •  Nbts IP  )  KPATH=1 
gO  To  loO 

iHG  CONTINUE 

lbt)  OEvbu  =•  (L)EV*l)lV)*wHT 
gUKiSQ  =  SUi-iSO  +  DtvSG 
OHi.Su  =  CHiSu  ♦  DE VSO/YPREl) 
ibo  eInE=L  InE  + J. 
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M  -  NAoL 
Mbu  11)  -  uuOo 
Abel.;)  -  whT 
1)-  (NYlKA)  170#iyO#lbJ 

i/0  IK  ( YObo.ol . 1j. .OU.YPHtL.oT, lb. )  GO  TO  lbb 
)0  =  OtXP(YObb)  • Y  CONS  I 
YC  =  LltAPlYPKLOJ-YCONST 
uO  TO  200 

loo  IK  l YObb . O I • 0 • • OK • YPRtu . G 1  * o • )  GO  TO  lbb 
YO  =  lu.0UO**YUbb  -  YCONbl 
)C  -  1 0 • Quo  * ♦ YHKLO  -  YuoNbT 
tou  uo.^t  inul. 

UtVU  =  1C  -  YO 
AUu(.J)  =  Yu 
Abu (4)  -  ru 
Abu(b)  -  ulVU 

1K  i  uOu  J .  Ly .  VO i 0  )  uo  TO  i9w 
UtvbU  -  ULVU*ulVU)  ♦  *llT 
GUi'ibOL*  -  bUMbUU  ♦  OtVSo 
LhUbuU  -  UlilbuU  +  uCvby/Yu 
uO  )0  190 
ibb  nOi.O  -  1 
N  -  2 

i 9o  uOu I  1 NUl 

IK  (LllJL.LL.bO)  GO  10  210 

«Ki  It  <o»4uu  )NOblt)J*lNiPKOb»  (  V  ( J  ’  NOV  AH )  t  J- 1 »  2 )  t  (  Y  I  HA  ( J )  ,  o- 1 1 2 )  » 

♦  ( BLAlJK  t  J—  i  » NAuC  ) 

L  1  l.L—  1 

*K1  lL(b*4  /u)  UUUL»»IM»  Y0bb»  YPULD»0LV»L)LV,J.PC  I  t  (  AuC  (  J)  •  J-l  ,MJ 
t2G  uOuI IIJUl 

u  ♦  **♦♦**♦***♦♦*♦♦♦***♦*♦*****♦**** 

biuY  -  ubUt\T  (  jOM'ju/ Oth  11  ) 
bloYU  =  UbuKl (bUPbOU/OLKK ) 

“  i 

IK  (  YlllAU)  .NL.mlTGAL)  L-2 

aN1TL(o*49u)  biuY'  Cm1jl>  bui>lbO»  (bLANrs.  J=1»L) 

IK  i  NAbu.Lu.b  .rtUl«.  nOnO.LO.u  )  MUTL(o.bOu)  S  iGYU » CHibviU  *  bUMSUO 
IK  ( NT  Ah't9 « Eu  •  0  )  I'lWINu  9 
bUlSbO  -  A  l  nOVAK  »  NOVAK  >  ♦  lbb 
L 

«.0U  LOul  INUl 

IK  l  A  ( NOVAK  »  NOV  mK  )  •  LI  •  J  •  0  )  m  ( NOV  AR  t  NOVmK  )  =U  •  ODo 

bUi»ibu=L)A)>b  ( bCMbu  ) 

iK  (NOlMI.uT.J)  uu  To  240 

*KilL  ( u »  070 )  NOblLP 

bluY-0. 0 

jIuK  CT-O.u 

KEoHCO— 0  .  u 

uAuL  SLITl  (1) 

jTuLNK  ( wIIKNOa  )  -  0.0 

LOhbGR  ( NltKNOw  )  —  0.0 

IK  IKiAAblC.r-  0.999)  KtJUKN 
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ob  10  OoU 
uHO  UUW1  INUc. 

bloY^SUlbbvJ/OLf  K 
bloY-PSbKT  iSibYC) 

Nbu-  1  .Ubu*A(N0WAK»  NOV Ar ) 

IF  l  NObILf  .  Nl.  n'jTLP  ( NHKNOw )  )  Go  TO  24b 
j1  ulRK  ( NUKl fO#  )  -  biOY 
40i\  bUR  l NURnO*  )  -  t'bO 
*-ONl  1NUL 

if  IMAXblP.Eu.yyy)  Kfc  T UKU 
AY  Y-A  (WOV  Ai\  »  NOV  AR ) 

l  K- 1 . 0 

NL  OKC  0— bUK  I  (Kbu) 

K2-RbG/AVAK 

V2- A ( NO v  AR . NO  v  mi<  ) / uLF  R 
F  Tcbl  =f 't/Vt 
bUALb-KbU*  I  Nb 
bv*t\LG<?-i>GKLC/\VAK 

OAIA  COKKLV,  *  Tt.u/t>HCORRLl  OUlt  0/  .ORl  »olN/l>H  ORlol.lllN/ 
oAbL 1 -CuRKlC 
OAbLO- 1 LD 

IF  l IF  uvb I • LU • o )  ^0  TO  2‘bO 
uAbt.  1— OK  1 
uAbLc-GiN 

,_bb  *RiU.  lu»A40)  NObTLP*  ALf’MA»uf’K00fHAbt  1  niAbL^»Ni>tFKM.Tbb»TR»NL)«NOW* 
lbGAC.O.bvjiKt_o2»RbU»K<l»F  Tt.bT  *  K  *  bUMbO  »  b  1  o  Y  2  *  AYY  .  V  2 

bloPCT-AL'b  i Si  0  Y  / Y^LAN*  1 00 • 0 ) 

too  *Ki  II  luOoo)  blGY  *  V (  1.  NOVAK)  .VI**.  NOVAK)  .  blbPC  T  »  RLGKCO 
uO  2SfO  J-  i  » NhK  A 

tuu  HO  i  .vil  (o)-Al  J.NOVAi')»A(NoVAK.o)/A(J.  J) 
c  YO  COnUNOl. 

*/K  i  f  L  l  u .  4  u  0  ) 
nK-U 

iF  ( lFPwCh • NL . 0 . A^u . nSumK Y < l U • 1 )  «/KiTL  (7»4{jo)  KK  .  CONbT  »  NPROtY  »  NORN 
iOW#  iNOLAY  .NOblLP.  lFPNCh.biof'tT  .  RLGKCO 
iF  ( lFCtMis  I  .EO.U)  *KlTE  (e>»3yu>  CONbT 

v.  LlbT  V.0KFF  iClLNTS 

uo  310  jsjl.nuknow 

i  =  lNi)EX  l  J) 

IF  UFPNCfl.ru. O.oR.NbUMRY  .Lu.O)  00  lo  000 

*Ki  fL  l  7»4b0)  i  »COlFF  l  J)  .  NPkOR »  NfiRNO*  »  iNDtXY  *  NOb  1  F_P ►  IF  PNCFf .  bl GF’C T  . 
iKLoKCO 

bOO  btu-bOK I I Aub ( A l i » 1 ) ) ) ♦blGY /bl^MA l I ) 
v-  f  -COt.F  F  (  o )  /bLL> 
iF l  bEb  iLu<  U.G  )  CT  =  u«o 

OKI  1 1 ( b»  4 iu  )  VlirlliVUiIlr  1  » COLFF  (  J  )  .bLb»CT.  A<  1  .NOVAK)  .POINT  (  I  ) 
iF (  POiuTl i ) .LL.o*u  )  GO  lo  310 
wRi TL (o»  biu ) 

4ALL  SL1TL  (o) 
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IS  -  i 

oil)  LOuTINUl 

IF  ( NtiKi'tOii  •  Evil  •  i'iuK X  )  00  10  3oU 
IF  (NulFR.lE.  J»  bo  lo  3bO 

itKi  I  L  l  o ► 4cO ) 
nP-0 

OO  3b0  *-A#Nt>RA 
PAk=P01NTU)/AYY 

If  i  A  (  1  #  1  )  •  LE  •  I  oL  )  PO  IN  III)  =3. 3333303L33 
If-  (UOUI  (it)  3bj»320»3bU 
^,,.0  If-  1  fif* )  340»330»34u 

330  iH-1 

RPAR-PAk 
oSh=A( 1 r 1 ) 
oLoi  -Pu ifj  r  1 1 ) 

NP-i 

oU  10  3bd 

04  u  rtRlIt  lb#430>  iil»KpAH»bbN#  JlLT»  I  #PAR#  Al  I  *  1  >  »POINT  (  1  ) 

NP-U 

Obo  OOnT lNUu 

If-  t  NP  •  uE  •  0  )  >v  r\  i  I L  (o»43U)  lM»KPAR#SbN#uLLl 
joO  RETURN 

j/o  f-  OnMA  T  129H1NO  MOKL  OEoREc.b  FRtLUOM  ST|_P  I  b/ 1FI0  » 120  ( lh*  )  ) 

Otto  F Oi\MAl  I2oh0bl  mWUAKL'  ERROR  uF  Y  F lb . b ►  bA2Ab/24n  b.f. .  aS  PERCENT  OF 

*  Nil  AN  Fl2.b/24ii  CUKRtLATlOH  COtFFICIi.Nl  F12.U  //  ) 
yJu  FORMAT  17a#  lbflcONbl  .  Tt_RM  U»E17.H) 

4U0  F0rtM,*Tl«.uX»4dHvAR  COtF  F  iLNT  STAND  •  ERROR  tOEF/SF»7X# 

itlnuLl A  KbQ  oHANoL) 

4iw  F  Oix^i  A  T  17A4.Ao»I3#  LI  7  •  d » tl  9.  u » F  I 0  •  4  #  2F  14 .  8 ) 

420  FORMAT  l  AHKtlXboHRtioRLbblON  OF  THE  VARIABLE  K  Oh  THE  bLT  OF  VAR  I  ADL 
it-S  AdOVL/lhJ»2l4X»44HK  PARTIAL  RSO  NORNL0  SUM/SQ  DELTA  RbQ# 

ti.  1  A  )  ) 

a3o  f oki*. AT  l2A#2d4»Fl3.  7»lX2tlu.7»9X)  ) 

440  Format  lbM,i5TEP14»9X#  loAS»9n  PROdLLMlo/oHoANOvA#21X» 3UH . OR 

x IOiNaL  0N11S  . 9X»2bM....  CORRLLA I  ION  FORM  ...,/CH  SOURCE  1 3X 

2»3uHu.F.  SUM  of  boUARLb  MEAN  S0UaRLS9X  #  2t>HsUM  SQUARES  MEAT  S 
joUaRESI  IX  i  9HuVlras-L  F/7H01OI  AL(  Ab»  A3»  In )  1 7 » El 7 . 8 •  20X # F  lb. 8/ 1 1H  REG 
4RESSlONil3#2tl  7.b»3X»2Mb.6#F20.4/llH  RtbluUAL  1 1 3 »  2t  1  7 . 8  >  3X  »  2F' lb 
b  •  d ) 

4ou  FORMAT  lbiuSTi_Fl4*  10Xm»3MRLjIDUAL  ANALYbIS  (  ACTUAL  VS  CALCULATED 
1  )  #  9X  #  /MPKoMLENib/  lHo  »  22 X  »  Au »  A4/7X »  lbHunStbVAT  ION  Ab*  A  4  #  13M 

c:oALOULAIll)»8X»oJUKlSIOUAL  NOR  DEV  PCT  OE  V  #  A3 »  Ab>  6HWE1GHT  »  3A1 
J»3oM  ACluAL  CALt.  DEV  //) 

A  7 0  FORMAT  (lX»Ab»lo»f  1 7 • S » 2F iu . b » F 1 0 • 3 » F 1 1 . 3 » 1 A Ab # Fd • 4 # F 12 • 2 » 2F 1 1 • 2 ) 
404  FORMAT  l  I b » E20 • 0 » b 1 b » F 20 • 4 » F 1 0 • 7 ) 

490  Format  <  17F1KS1  MI4UA,<L)  ErrOR  -Fl0»3#lbtl  »  CU1  SQUARE  =F11.4»2X» 

*  71 1  bbE  -Libto»2Al »34UFoR  IRANsFORMEu  UEPENDtNT  VARIABLE  ) 
bJo  F OrmAT  ( 17hOSl aNuAru  ERROR  -  Fl0.3»lbU  »  CHI  SqUARE  =Fll.4»2X» 

*  /n  SbE  -Llb»d#^X  #34MFoR  RECONVcRTLo  UEPENDlNT  VARIABLE  ) 

bio  1-OrxMATUXrbOU.i*)  *  b3h  IlL-oonUITIONLU  bt.T - RESULTS  IN  OOUflT.  DO 
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V.  S/K  lo  f'KluT  bUMb  uF  LNObb  F’HODUCTb 

bbuKOUl ANL  PKTbUM 

c  HA*  buMb  OF  ouuAKLS  AKl)  ckuS b  PKOUoC I b 

v.  OiviON  ’jIji'iAIou)  » ‘A  <  b«2 »  bJ )  *-»lNiCOH(b«2»b2)  » A  Vo ( oo )  »  TEb  T  luu) 

COMMON  KuilJloOl  *b1Kl.'i«(  3uuji  INDPAC  (  3o»  bU  >  t  INjEXPTolJ 

LOMMOF  4  Nul  X  l  ou  )  » I  >OU  I  ( uU  T  *NbTLP(oO)  »ALPnA(lb)  *  Y  ML  AN  »  1 DLN  •  IF  AVE 

COMMON  i*iAAbTP »  IF  Pl.CM#  NbUMKY  »  NbR IP » NT  aPlS*  NlW 

COMMON  .40  V  mP  »  MuKNC  n  .  nObT  LF »  uL'AT  A  »  NUK  A  Y*  »  NbhX  » LPATH  •  DLF  KM»  K 

COmmuN  IF  ua T r\  *  iF  c  <bT  •  I F  C  OKK  #  NPKOb »  NbPP VR  »  T  0L  »  Mu  MARK 

COMMON  4NoLXY»Luml  »NOOOOl/lLo) 

cOmMON  1 F  m  I  »  YCuNbT  .NYTKA»  V  ( *  51 )  »  Y TRA ( L ) 

COMMON  b  1  OF  Krt  l  bU  )  *  CoPboR  l  bo  ) 
oOooLt  PKLClbiUM  A,SIMCOH.bIOMA»AVO»TLbl 
c 

JA | A  JO/ 1H  / 
ivK  lit  l  u  »  i  bC  ) 

rtKiiL  (o#loO)  ( Ob  *  4  » A  <  1 »  Nona  Y  W  )  *  1  -1 » Nbri  A  ) 
aPITl  l  o  *  170)  a  ( NOV An  » NbP a  f  »•, ) 

*»h  i  I  L  ( ti »  lbO  ) 

*Pilt  (oilmen  UJb#I#  J»AU»J)  »J=1»N0rX)  »i  =  l»NbKX) 
flhiTL  (orLUO)  (  JO  *  i  *  A  (  1  «  NOV  mK  )»  I  =  1  #  NoPX  ) 
mKiIL  lo*«_lO)  a  {  NOVAK  *  NOVAN  ) 

NL I  OWN 


L  b/.N  To  CAuCULaTl  AND  PRINT  1  Ml  RESIDUaL  SUM  OF  SQUAPtS  AND  C.P 

LNTKY  KLblo 

IF  l  A  ( NoPA  1 V*  t  muRX^  x  )  )  10*  1 0  »  lO 
lu  rtKiTL  lu»LtO)  MPROb 
CALL  LXiT 

^o  jO  au  i-i»i.ovak 

I/O  bl/  J=l»i<0VAM 

bo  AIoJ):aU>J)*UI  1 » NbR A Y  fc )  *a  ( J  t  NbPX  Y  *i  )  /  A  ( NoKXY  *  »  NDRXY*  )  ) 

•♦o  AVu(i)-Mli»rJL>KAT*)/A(  No«X  Y  t.  t  KbKXY  nl ) 
if  (  1  b  A  VL  •  NE  •  0  )  oO  TO  bt) 
mK 1 l L  l  u  *  LbO ) 

*F<4TL  (o»lvO)  (  l  JO  1 1  *  0»  A  (  i  f  \j )  » J—  1  r  NbiiX  )  »  I  —  1 »  NBkX  ) 
xHiTt  (ii»tOOI  (  Jn  »  1  »  A  (  i  *  NO  V  aK  >»  I  -  1  »  NbK  A  ) 
xKlIL  (d»l10)  a  UvOV ah » NO v ak j 
bo  ML  I  DrO 4 


C  b/N  TO  OLCULAft  ANU  PRINT  l  ML  bIMPLL  COKkLLATION  COLFUCIENTb 

lnTm  loRrll. 

00  SO  1=1 » NOVAK 
IF  (A(l»l))  bO»o«j'oO 
Ov  aKiTL  1«j»LA0)  1 

IF \  I.Lu.njVAK  )  CALL  bLiiulTT 
bloMA ( 1 ) • 0 
OO  / 0  o=1»wOVAk 
a ( 4  » j ) =0. 0 
/v  A(o^l)  —  u*j 
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uo  To  9u 

jU  Slv»MA  (  I  )  -ubQti  T  l  A  (  i  »  I )  ) 

^o  A  ( i  > I ) -1 .  uUO 

u  0  1(JP  1=1»NdRA 
iPi=I*l 

00  100  o—l P  1 » t  40  V  AR 

A(i»0)— A(1#J)  /  l  b  1  OMA  (  1  )  *bl oNA  (  J  )  ) 

1  Ju  H  (  O  »  1  )  —  A  l  1  »  J  ) 

u 0  110  J-l »  NOVAK 
uO  110  R=1»N0Vmr 
llu  b  Ii*iC0R  (  O  #  A  )  l  J  t  K  ) 

IP  lIFCNST.NE.U)  by  TO  140 
IF  (1FCORH)  14w>12o»l4u 
12o  AKlTL  (o* 2b0 ) 

IF  l  NBKa  . LL  •  1  )  00  TO  lib 

ImOVM2  =  NuKX-1 
uO  iiO  1=1 » NOV M2 

IP1=1*1 

iOo  *R1IL  lo»2oP)  i  ob  '  1  *  J  •  A  (  1 »  J )  >  J- IP  1 1  NtiR  X  ) 
lib  rtRlTL  lo#2/0)  ( JB» 1 » A( 1 rNUVAK> *  1  =  1 >NbRX) 

1 4u  RETURN 

v. 

0 

o 

1  bo  FQrMAT  t IHo » 4oA » lbHbUM  OF  VAKlABLEb//) 
loO  F Oh NAT  l 4 ( A1 » 1 IN  SUN  Xlit'iFT)  =F14.4)) 

l/o  cOhNAT  loArllHbUM  Y  =F1h.4) 

loO  F GrMAT  llho70H  RAW  SUM  OF  SQUARES  A 

luO  CRobS  PROOUoTb// ) 

i^O  F'okMAT  131m1»um  X(I2»7fi)  VS  XtI2»iFI)  =Fl7»o)  ) 

cJu  FORMAT  liUlron  X(I*,l2FI)  VS  Y  =Fl7.b)) 

210  FOrHAT  lbX»lbNY  VS  Y  =F17.b) 

t20  FORMAT  Ii2n0  2c.R0  NUMBtR  OF  UA1A»  PROBLEM  lb/) 

*.io  FORMAT  (lho2bAboF(bUMS  OF  boUAREb  ANo  CROSS  PKOOUCTS  ABOUT  TH 
1L  MEAN/  /  ) 

240  FOrMAT  UOmO  vhRlABLElb*  loH  IS  CONSTANT  //) 

2bO  FOrMAT  UHu»iix»iiHSlMPLE  CORRELATION  COEFFICIENTS//) 
too  FORMAT  (i(Al»oM  X(l2»7n)  VS  X(I2»iH)  =Fl2.8»5X)) 

2/0  FORMAT  ( i l a1 *  on  X(l2rl2Ft)  VS  Y  =F12.B»5x)) 

LNu 
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v.  b/r<  To  hUu  A  vAkImULL 

bUoECOUl  *  ML  AOjlvJ 

oOMMoN  _>  I  umA  l  uu  )  »  a  ( t><!  *  be  )  *  b  1  mCOR  ( bD »  be )  »  A Vo ( bU )  »  TE  b  T  (oO) 
e  OmMON  Pu  1(<T  (uu)  »bTKINo(buUo)  *  1NOPAO  l  5o  *  JO  )  1 1  NoE  AP  ( ol ) 

COMMON  iNUl  X  l  uU  )  » '»OU  T  (  Dll )  »*b  l  EP  t  Ob )  »  mLPHA l lb )  *  Y  ME AN »  1  DEN  *  IF  A Vt 
cOmMuN  NAXbTP »  iFPuCEl  t  NbUMEv  1  rNSKlE’  »N1APl9*Nla 
COMMON  NunNo*  »NObTEP»NDATA*  NUKX  Y  *  *  NHE<  X  »LPATH»l)EFKM*K 

ouMMON  i  E  okCK  *  it-  CN^T  *  I E  cOKK  t  tSiPKOb » NbPP  VK  »  TOL'RlMANK 
COMMON  INulXY  » LbAO » NOoouU ( dfc ) 

COi-u-tON  IFaI  »  YCUNbT  »NYTkA»V  l  *_  #  51 )  *  YTEvA  ( L  ) 
vOmMON  b  l  bCKK  <  bo  )  *  CuRbUR  l  be  ) 
uCuoLh  PKlc IbeON  A  »  b  I  MeOEi »  bi  uMA  »  A  Vo »  TEbl 
o 

UOuOLE  PEtLoIbiOw  OA*  vAk»VmII4#VMAX 
v.  NOKwOw  =  UUMut-K  jF  eOtEE  jC lENTb  E  Orv  PKtbENT  EOUAl ION 

<-  Ni-iKPKV  =  mOMbLK  OF  cOlFFICIENTS  FOk  PKLVlOUb  FuUAlION 

o  INOt-A  -  iNut-X  OE'  PRESENT  EdOAT  1  Oim 

V.  1NLC.XP  =  inuEX  OF  PRLViuOb  EQUATION 

uu  lo  J-1»UHPN0W 

io  oAeU  PAers  l  MbKNOw  *  J  t  I  NoLX  l  u  )  t  2. ) 

uO  <Jb  J—  1»NMRX 
t!J  NOul  (  J  )  —  j 

IF  (NpKnO*)  bo*bb*00 
bj  uO  **o  J-1»NBKnum 
hDuMMY - iNulX ( J ) 

HO  WOoT inuummt ) -1 
bO  VMhA— “1 • 0 

v.  E  I  No  LmROL-»I  iiLlA  (VAK  =  DELTA) 

uO  7o  1— liNHKx 

e  oYrAbb  IE  ALRlAUY  in  uOUAIION 

IE  (  NOG  I  (  I )  •  f.e  •  0  )  oO  To  7u 
IF  ( A ( 1  *  1 ) »6l • l OL )  oo  lo  oJ 

»hi  1 1.  lotblO)  A  l  1  *  1  )  >  1 1  (  INULA  (  0  )  *  J=1  »  NoKNOm  ) 
oO  10  70 

L 

oO  v  At\-A  (  I  •  No  »  Ak  )  *  n  ( 1  -uV  AH  >  1  )  /  A  l  1  »  I  ) 

IF  (  VAK.L.-.Vi«lAA)  uO  TO  70 
WMmA— V AK 

f\- 1 

70  CONTINUl 

o  tiHVL  FounO  OPTIMAL  VARIABLE 

Nb  1  tP^NObl  t.P+1 
IF  ( VMA a )  c0»9o»90 
bO  *R1IL  lo#bcO)  VMAX 
cAll  SHTl  (1) 
oO  TO  <>oU 
bo  NtmEJ VK-nEEknOin 
nLkNOW— NiiRNOw*1 1 

IF  (  TEbl  (  NuKNOm  )  “A  l  No^mK  »  NOv  aR  )  ♦  VMAX  )  lOO»lOU»l*2u 
lOu  «Kilb  lo#bbO)  K  *  NOKNOW  »  NS  ( t-E‘ 
oO  110  1=1»NoVmK 
uO  110  o=l»NOV«i\ 


07 


Uu  A  l  i  f  yj  )  =  0  INLOtt  1 1  *  O ) 
lPa  T  n-t 
oO  TO  <;oo 

0  ADu  V  Ai\  I  Aot-c.  lb  INULX 

li.o  tUi.T  i Nol 

IF  IhHKPVu)  » LOo » 1 3y 
i3o  oO  IaO  o=lfNuKPoK 
140  v.  AlL  f-’ALts  tNbn^y/K*  J»  INjlXHIu) 
uO  lbO  J=l*NL!HNoi* 

lbu  L Ai_L  PAbK  lhbKnO*»o»  li'iULX(o)  »?) 
ob  ittO  0=1 » NbKPVK 
IK  l  lNULXPlO)-r\)  loO  »  1  uO  *  1 
lou  v. All  SLITl  (1) 
ft  K  i  1 1  t  b  »  H  b  0  ) 

oO  TO  tOO 
1  /  o  00=  0 

bO  10  lVO 
i  do  o  0 14  1 1 1.UL 

1  NuLXP  l  ilLPuO*  )  =K 
oO  10  Liu 

1  *0  L=uL'KfJ0*-OO 
oO  c?  0  0  w=  a  »  L 
UH  = NbPUOW+l'O 
iJb=i4bKr4Un-L 
i NuL  XP  l i4K  )  =  I KOL  AP  1  i\Jb  ) 
iNoL  XP (  OJ )  =F> 

l  LHLo^  10  bLL  IF  bF-1  Hms  ALKLADT  liFlN  COWPUILO 

4. 1  u  uO  «i«dC  0=1  fNbKKOW 

o*a.L  PAbK,  i  NOKi'iO*  *  o  »  I  •  t ) 

IF  1 1  Noi_ XP  (  J  )  •  i4L  •  1  )  oO  TO  aJau 
c.c.'J  0O14T  1  Mol 

aHiTL  Ioih'aD  uOb  1  LP  t  K  t  NbM'tOi*  »  (  I NOL  A  1 J )  t  J=  1  •  NBr<NOW  ) 
lPaT  n=3 
oO  10  *ibO 
L 

4.J0  1  UuL  XP  (  a  )  =(v 

lAO  lLbT  INuim'jOa)-mVi'io'<aK»NovAk)-V^AX 
L  NCw  bLl  -  Pol  lNtjtXLb  1,4  matkix 

uu  LbO  o=l  t  t4ili<n0w 

a.Ou  LAlL  PALK  l  NL'XiaOw  *  o  •  INuLXP  l  j  )  #  1  ) 
lPaI H=1 

IF  IMAXblP.LO.^V'*)  oo  To  tibo 
iF  l fobTLP •  Lu •  1 )  oO  TO  2bb 
tbo  *8  a  1 L ( o  *  biH/ )  i4oTLP*Kr  V  ( 1 » i\  )  #V(0»K) 
ebb  l\b  )  C.P  (  UoriNbN  > -i«bTt-P 
i\b  I  LP  IWoKnOW  )  =iMbT  LP 
C.UJ  KlTUaN 


l  AL'OObl  COHKLLaTION  VAIKiX  FOK  LUTKaNLL  OF  VAKIABLL  K 

Li'iT  a  T  ImaTH  a  a 
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u A- 1  •  0/  m  ( f\  *  (\  ) 
oO  3o0  i=l* NOvAK 
iF  il— 1\)  «_  /  °  *  Oo  0  t  i.  /  0 
^7 u  00  *.90  o-WNcvaK 

IF  l  J  *.C)0  »  t9w  I  4.'o0 
..ou  A  l  1 1  J  )  —  A  I  I  f  J  )  - «  (  1  *  K  )  *  A  l  *, »  j  )  *  c  A 
t  C0t*1  1NOI- 

H(i*O-“Ali#rv)*0A 
jjo  eOul  INUl 

oO  OcO  *>- I  »N0  V  AK 
iF  l  J-rs  )  01 0 » Oc 0 » 0 i 0 

Ole  A  ( f\  »  J  ) -«  l  f\  *  J  )  *o  A 
o.-<J  eOi*  l  INUt 
AU^)  -U  A 


v. 


OJo 

L 

c 

e 


IF  l  KOb  1 1_  F  •  Ll  •  1  )  '•eOMti-r,I>«lU0o0..0.*MnOVAK-in 
It-  I  NOS  l  t_F'  •  LL  •  hLO  -'t) )  viu  lo  jOO 

i*KilL  I  tj  »  !>•*  0  ) 

c All  sLiTt-  (l) 
lit  l  or\N 


>/K  10  L'oef  T  t_  A  VAKIAdLL 

l  NiT  t\  1  '.0  V  l 


oO  OaO  o~l » NbiilxO* 

j>«o  call  f’Acic  I  FitiriNO*  *o*iNt/LXlJ)  *2) 

KLi'.AKK  =  O  •  0 

iMb  I  LF‘-i\Ob  I  «_>'♦  I 
VM1N-— ».  •  i)L+  Oo 

c  FINo  'j^.ALlc'jI  L/llTa  tVAK  =  IHLLlA) 

c'O  OoO  0-l*NbKu0fc 
I  =  i  .Ml  t  \(  J ) 

iF  I  A  I  I »  I  )  “TOL )  *  i'jJ 

j;jO  V  m\~  A  (  I  »  NU V  AH  J  * A l Ny V AK  »  i  )  /  A  {  1  •  1  ) 

IF  (  V  AK  *Lc.  •  VM  if*  )  c>o  TO  3bo 
VFiiN-V  A»\ 

»\=i 

juv  c  fji*  1  i  NUu 

iF  4  T  t.  blluL'KNc/wll+VMlu— AkNciAh»ixOVMf\))  07^»J>7j»08c 
0  /O  COnl INOL 
uO  I  0  A  /  0 

c  Kt MeVL  VAKAAtfLt.  [0  fit.  On-tltl)  FKOM  il*i)LA 

jotJ  OF-  -  0 

uo  .wo  o-i » ru'Kiw# 
iF  l  1  Noe X  f  o  )  ■  Luf  •  A  )  vjO  TO  0\fO 
JF'  =  JF  ♦  i 
iNc-LXPIoF')  =  ii.JtMj) 
j'»0  eOnlllMUt. 

NOKF’VN  -  HuHf.O.K  -  i 


Oq 


yntyK  10  jLl  U  bt_  I  M*b  ALKt.AU>  lit  LIM  COM’UltO 
ut  *♦‘*0  w-l»ru'Kf’VK 
iAu  PAlk  l  NtiKP  V  K  >  o  *  I  •  4.  ) 
it’  li.wc.livDt.APly))  i»0  T 0  *♦  ;>  y 
*.  •■*  y  i.  y>*  1  1  Wi'i 

>»K  4  f  t-  t  U  »  t>t»0  )  K 

oO  10  **  /  y 

NL  *  'jt  1  -  PUl  iNUt-At  b  i,,  MAlKiX 

■<  JJ  K  t- 1*1  M  K  l\  -  1.0 

f.tSKf.OV,  -  ‘.l  PNOi*  -  i 

I  L  bT  INdKNu*  >  r:  —  w  ,»1 1  .  ♦  A  i  'loi  Ai<  » ,,i  VAK) 

Ut,  moO  y—  1  *  f jMKuO* 

*«yy  lAn  PAy  (\  lt!t'KiWi4»»J#lNiJt_XHlj)*l) 

*K  A  T  t.  ( o  *  buy  )  mb 1 1. 1  iKi  V(l»i\)»V(£*f\) 

Nb  1  t.P  l  NuKmU* ) -Ubl t  P 
/U  Kt  I  uKN 


bju  t  0r\i‘l  A  1  l  OmCaI  b  1  t  P  1  4  *  Uyii  »  mDJOINLu  V/kKImuLI  lb  •  0  X  0  M  f  ) 

•joo  F UK VAT  I  ot’^Af  bl t P iy » _ph *  lLLPILU  VAKlAbLEIo  •  OXUMb  ) 

I-CkWmT  i  miOAl  b!tPl^»fc0H*  AO JUNC T 1 uN  or-  lAKlj*0bH  PKOUUCtb  Tml  S 

♦  A  Ml  bt.  1  Ur  t.'ifciM  VAKlAuLtb  Kb  I'ttOKL  *iC'13/A0lj>) 

b  b  y  FukmaT  i  lhO.  ii\  ui'N  uELEl lum  uF  VAKIb»4bti  PKOoUCEb  Thi_  S 

♦  AMc.  bt.  1  Of  VAKiAUuLb  Ab  tit>ukL) 

hioi  rOK-'AT  »  h».i  iOlkkOk  In  AujUi  »  S/K...  Pi<0i>i_lM  TLKmINATLL)) 
bJ>y  t-  Ok-' AT  lOlltO  AuuoIimInO  VAkIauLl  W»30H  PKuDUCLb  NO  1  MPkOVl  Mt  N 1  FO 
Ik  1 3  *  £ IN  vAKiAuL<-b»  A]  b  I  i_f  I  4  ) 

bl  y  rOK'.Al  lbt>riO,,yKiMALl4.t_J  KtbioUAL  bUM  OF  bOL'AKtb  lbHl.t»»l7H  . 

l.VAKlAt>k-Lij»01ti  lb  NLAk-UlPlNOLM  ON  V mk 1 AuLlSll 1 3# /£A40 I  3 > 
b>*y  r-yK*iKi  tHbnOMAAivOM  nUmulk  or-  1 TLKA1  10Nb  txCLLuLO  IN  PKoBLtMIM 

b£y  FOrvAT  l  l**tiONc.yAT  ltt  UMAX  rty.oi  £bn  .  PKOoLtM  TlKMINA  1 LU ) 

t-Ny 


PACa  mNP  caIrACT  InDEa  FROM  ARRAY  nN  WHICH  HAS  4  VALUES  PER  WD 
SUuHOUT INc  PAoA  ( I  i  i  JJ»  JVAcuE  *  NGO ) 

oOmmON  s  1  Oi»i  A  low)  t  A  t  S2  » S2 )  »  alwCOH  ( S2  *  b2  )  »  aVo ( 60 )  r  TEST  l  oQ ) 

COMMON  MOlNTloO)  #STR1No(30ou)  » INUPAC  1 3o »  JO )  »INuEXP(61) 

COMMON  iNulX loo) »NOUT ( oO ) • K jT EP ( oO ) » ALPHA ( lb) »  YMEA.Nr lOEN* IFAVE 

COMMON  i-,AXsTP»  iFPl.CH#NiUMKY  ,  NSK  IP  r  NT  APc.9 » Nc. w 

COMMON  NOV  aR  » hoKNO*  > nOSTLP  #  NO AT  A » NbRX Y  w  *  NBRX  » LPATH » DEE  RM  t K 

COiiMON  IFuACk  »  IFCNsT  t  IFCORR  t  NPROd  t  NdRP  wR»TUL»Rc.MARK 

COMMON  iNuLXY  >  coAU »  NOGOOD  1  2o ) 

COMMON  iF  « 1  •  YCoNS  T  »NYTra»v(^»S1)  »  YTRA ( 2 ) 

COMMON  S I oEKR 1  SO ) * CoRbQR l SO ) 

UOObLE  mRccISIoN  A t S IMCOK • o I OMA r A Vo t T EbT 
C.UU1  VALcNcl  M»XM) 

OlMLNSlON  MASM4)>  MAS|\C(4),  MASKS(4) 
l)AIm  VASK/c77»o77Uo»07VoOUi-»»o77(JoOOO(j/ 

uAI  A  MAoKC/ 07 77 77 7777 7oo *07 7/7777700 77 »u777777u 077 77 r 07 77700777 777 
1/ 

OAIA  MAbKb/Cl*0l00»010000»01o00000/ 

lNoc-X  iN  Nn  AkRAY 
iSdl  +  D/t 
o-  l  JJ+1 )  /d 

wORu  lo  be.  PACnEL) 

M—  i  Ac  (  1  »  J  ) 

POSITION  IN  M  10  Be  PmcnLD  (  1-4  ) 

nw-2*M0u  l 1 1 » 2 )  +MOo  ( J  J  t  d. )  +1 

oO  10  ( 10  *  d.0  )  •  nGP 
PACK  IhDEa 

lo  XM-aNU(M»MmSKCINW) ) 

XM=OR(M»JVALUL*MASkS(N*) ) 

INuPAC ( 1» J)=M 
KLlORN 

EXTRACT  IhUEa 
2o  XM— ANL)  ( M » MASK  ( hw  )  ) 
oVmLUE^K/mmSKS l NW ) 

RE l URN 

LNu 
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•WtWu>' 


b  1  RrtNSFOKMAl  ION  OF  OAT  A 

SUdKOUTINL  CHAnoL  (POINT » Nor TKA» CONST jnTOTmL) 

V. 

OlrtLNSlbN  FOli4l(b0)»  NuRTkA  (fcO )  #  CONbT(oO) 

C 

oO  220  i=l*NTdlAL 
ITkA=NukTKA ( I ) 
iF  (1TKA.LL.C)  bO  TO  220 
IF  l  ITKA.i-T  .  17)  SO  TO  10 
*RlTL  (o»2S0)  iTRA 
NdK I K A ( i ) -o 
bO  fo  «;20 

V. 

lo  U=HOINT(I) 

C=CONST(I) 

IF  (ITKM.ol  .b)  o0  TO  I2O 
bO  TO  ( zQ *  oO » 40 » bO  1 60  •  60 » lOu  1 1 10  )  »  ITKa 
tL\J  o  =  o  +  C 

00  TO  210 
JO  0=u*C 

bO  TO  210 
*+o  0— o/ C 

bO  TO  2i0 
OO  0=o/0 

00  TO  2iG 

bO  IF  (C.Li .0.0)  bO  Tu  70 
d=u**C 
bO  TO  clO 
7o  0=1./0**(-C) 
bO  TO  210 

ou  IF  (O.LT.O.O)  bb  TO  90 
u=C**D 
00  TO  210 
9o  0=l./C*4(-0) 
bO  TO  210 
130  u=mL0G(u+G) 

00  TO  210 
llu  0=mLOG1o(u+C) 

00  (0  210 


120  iTi<A=I  TrvA~o 

iF  (C, Lo. 0.0)  b=l« 

bO  TO  ( lSJ»  14J»  ISO  » lt>0»  l7u»  ldO»  190*200)  »  ITRA 
ISO  u=tXP(C*D) 
oO  TO  210 
140  U=tXP(C/U) 

00  TO  213 
lbu  0=SlN(C*u) 
oO  TO  210 
loO  U=OOS(C*L>) 
bO  TO  2lO 

17U  o=bliM(0*D)/C0b(b*U) 


102 

f 
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c 


-  ' - T^aaag 


oO  TO  dUj 
iou  U-olNH(L*U) 
oO  TO  i;10 
100  G=uOSH(L*u) 
oO  TO  ^10 
cOU  O=lANH(C*0) 
tlu  POINT ( I )=u 
t-du  LONTINUu 
KEIUKN 


h GkMAT  1/1X* lHhTHAMbFOhMATIOhl3» 18H  IS  NOT 
lc.  SuT  To  ^LRO  ANb  IGNOkLD.//) 

UNO 


IN  TABLES, ObH  IT  WILL  n 


> 
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c  UUNu'iY  SUBROUTINE  To  MaKl  UNUSUAL  TYPES  OF  TRANSFORMATIONS. 

0  ImI'j  SUHKOUUNt  IS  KtPLACED  AT  OuolCT  TIME  WITH  ONE  WHICH 

^  PERFORMS  THL  L'ESIRlO  TRANSFOKMAT IOnS • 

v.  POINT-  DATA  ObSLHVATIoH  WHICH  WAS  klAO  IN  vN  CARDS  OR  TAPE 

L  iFbub  -  A  NUMBER  OklAIuk  THAN  ZLRO  WHICH  CALLS  S/R  LQUAT  A NO 

0  NbROFX.  May  tit  OSLO  AS  A  BRANCH  INDICATOR. 

L  nXV  =  NEw  NUMOLK  OF  lNut_PENUtNT  VAKlAbLES 

L  MAKE  SORE  DEPENDENT  VARIABLE  MATCHES  NXV  ♦  I NOt  XI • 

C 

v-  S/H  EOOAT  IS  OSLO  To  AOo  OR  CHANCE  U Al  A  OBSERVATIONS 

L 

C  S/K  NuROFX  IS  USLO  lo  CHANGE  THl  VALUE  OF  NXV. 

o  ANU  MUST  BE  USED. 

c  *******+*»*****+***+*+**+**************+**+**+*******♦**+****»*+♦+ 

C 

V.  EXAi-iPLE  -  POLYNOMIAL  EUUATION  lFbUB  -  POWER  OF  X 

w  Y  =  AO  ♦  m1*X  +  A2*X**2  ♦  A J*X**0  +  ...  ♦  A ( IF  SUB )  WX** IFSUB 

L 

SUuRoUT INL  NuKOFX  (IFSOBfNXV) 
wXV=IFSob 
NY=NXV+1 
NX— NX V 
HE  T  URN 
L 

tNTHT  EOUAU  IF SUb» POINT  ) 

DIMENSION  POINT  (SL1) 
c  STORE  Y 

h-SN-NX 
L-bO 

00  1 U  J-NY  »  S2 

H-H-l 

>-=L-l 

10  P0INT(L)=POlNl  TK  > 

L 

b  STORL  POwlHS  op  X 

UO  20  0-2 » NX 

«_U  POINT (J)=PoINT lO-l)*P0lNl ll) 

RE  I  URN 
lNo 


I 
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appendix  f 

Cushioning  Model  Validation  Code 
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This  code  provides  the  calculations  necessary  for  a  specific  model 
validation  as  outlined  in  the  Model  Validation  Section.  Input  to  this 
program  is  generated  by  the  Data  Analysis  program. 


107 


L*********4***44****4*4**4**44****4*4*4*444******4444**4**4*4**4*4***4* 

C 

C  VALIDATION  OH  CUSHION  MATERIAL  models 

c 

C44*44*******4*444**444****4*4***4*44*4**44****44*4*44***4***44**4**4** 

c 

INTEGER  TYpEM 

COmMON/STD/  IL»  1  YPEM  ( 3>  20 )  *Nv (20)  » CONST (20)  »COEF  (51»2o) 

COMMON  /STD1/TP»TUSS»GL»NVk» V ( 51 ) 

COMMON  /STD2/  CM> Ca» CC » GLMAX » SSL ( 3) »SSu(3) # to » Dh» dM!N» UMAX 

c 

RAnGE=1.0 

C 

C  FILE  12  CONTAINS  ThE  SPECIFIC  MATEKIaL  DATA 

HEmIND  12 
c 
C 

100  CONTINUE 

c 

C  REmu  SPlCImL  case  flag  aNU  MATERIAL  type  NUMdER 
c 

HEAD l 5’22b0 )  1S*IL 
C 

C  NUMdER  OF  COtt-F  1C1ENTS  K  OK  |  mE  MOOtL 

c 

NA  =NV(1L) 

C 

C  SPECIAL  CASE  IS  =  u  All  DAIA  CASES  IS  =  1 

C 

O0u  IF  (1S*lO>1)  OO  TO  4u0 
C 

READ  (b»21i)n»LND=lb00)  TC»Dh*TP 
•♦Ob  CONTINUE 

READ  (12)  NPTS 

IF  (nPTS.Eu. 99999)  GO  TO  lbOu 
NPTA=NPIS+i 

READ  (12)  DH  *TP  »TC  » 1 1 A ( 1 1 ) 1 1 1  =  1 , 2 ) » ( ( d ( KK * JJ) »KK=1 » b) » JJ=1 1 4 ) » 
1  (X(LL)  »LL=2»NPTA)  »  (Y  (Ll)  *LL:=2»NPT  A) 

IF  (IS.EO.l)  GO  JO  500 

bOu  PR a NT  2300 »  T YPEM ( 1 » IL ) , T YPEM ( 2 » lL ) » T YPEM 1 3 r IL ) ' DH» TC » TP 

X(1)=NPTS 
Y ( 1 ) -NP  J  S 

04444*4**444444444444444444444444*44444*444444*44444444*4444444*4444444 

CALL  CONFlU  ( X » Y »NpTs» YL • YU, d ) 

L4444***4***4*4*44444444*4444*444444*44*44*4444*444*44*44**44**444*4*44 

DELTA=0.0b 
X(2)=0.05 
1=2 
N— 2 

oOO  CONTINUl 

IF  (X(I) .GT.5.2)  00  TO  70u 
IF(X(I) .GL..9b)oELTA=0.2 
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l 

c  second  order  polynomial 

c 

Y  1 1  )=Bli.N)  ♦UUf  N)  *ULoSU<  1 ) *100. ) ) 

1  =  1*1 

A(i)=XU-l)*Dc.LTA 
oO  TO  b00 
70u  CONTlNUt 
All)=I-2 

Y  ( 1 )  =  I-ti 
bOO  CONTINUE 

K  =  l-1 

00  900  L=2»K 

Y  (L)=Y  (L)+b(3»N)  *<ALOG(xlL)  *lOu. )  )**2 
C 

c  OENtKAL  CUSHION  material  mo^ll 
L 


SS  =  XIL) 


YMIL)  =  oL 
90o  COnTINUl 


L 

L 

L 


CALCULATE  PREDICTION  LlMllS 

np  r  a=x ( i ) 


CALL  PKtOlL  ( X »  Y  #  NRT  A  *  YL »  YU »  b*  YPL . YPU) 


C 

C  FInO  MINIMUM  IUCC  G-LEVEL 

L 

YM1N=1000.U 
UO  1200  I=2»K 

IF  (YMlN.Lt.YU)  )  00  To  1200 
YM1N=Y(1) 

M=i 

1 2oo  CONTINUE 
C 

L  uEl ERMINE  VALIU  MODEL  RANOE  FROM  BOUNDED  IDCC 

c  and  predict  Ion  Limits. 

c 

AM1N=X IM) 

xl=xmin-range 

XU=XMIN*RANGE 
WRITE  (o*2S00> 

WRITE  ( o  1 2b0o ) 

UO  1400  1=2 » K 

N=JH 

IU=3H 

IF  1 X 1 1 )  .Gl.XL.AND.XII>  .Lt.Xu)lB=iH  ** 
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IF1YPLU)  .bT.YM(I)  .OH.YPUII)  .LT.YMll)  )N=,JH  * 

IF  (YPL(I) .LE.O.U>  GO  TO  1300 

sRiTE  lo*2700)  X C I ) »  Y  ( I ) »YPL(I) » IB»  YM ( 1) »N»  YPU( I ) 

GO  TO  1400 

L  NEoATIVl  G-VALUES  SET  TO - - 

13o0  *KITE  (o*2b00)  Xtl)  »Y(I)  » Id.YM(I)  *N*YPU(I) 

1400  continue 

c 

C  NEaT  CAbE 

GO  TO  300 

c 

C  ENU  OF  UOu 

1S00  *HiTE  (b>2900) 

CALL  EXIT 
C 
L 

20u0  FOKMAT(lHl) 

2iu0  FOHMATl2Fb.l»F7.1> 
t2u0  FOkMAT  ( I 1 r 12 ) 

<1300  FOKMAT  1 1H1 » 10X 1 3A4  f  4X » F4 . 1 »  *  IN.  U.H.  *»F7.1»'  IN.  THICK ' »F0. 1 » ' 
ITEmPERATUKL* ) 

2ho0  FOkMAT  l) 

2S00  FORMAT  l///lbX» 'STATIC  STRESS ' » 17X . 'DECELEKATIoN  (G)') 

coUO  FOkMAT  l2lX»  »PSI '  »12X»  '  IUtC»  ,4X»  ' LO#ER-P • » 9X »  'MODEL'  »t>X#  'UPPER-P*  > 

2  700  F0KMAT(18X»Fb.2»9X»F7.2»4X»F7.2#4X»A3»F7.2*A3»3X»F7.2) 

2bu0  F0KMAT(l8X»Fb.2»9X»F7.2»7X» - - » »5X»A3»F7.2* A3»3X»F7.2) 

2900  FOKMAT  (1H1»*  tNU  OF  JOB*) 

ENU 


SUoKOullNE  CONK  ID  l  X .  Y .  NPT  b ,  Y  L .  YU * b ) 


L 


L  lOMPUIE  THE  PREDICTION  LIMITS  OF  THE  CUKVES 

c 


ulMENblON  A(bOO).  YISOO)*  Ym1500>*  YPL(SOu)* 

1  YPU1500)  *b(S*4)  *  I A  (2)  *  YLlbOO)  *YU(SOO> 

DIMENSION  AAR  l bOO ' O )  *  YARlbOO>*  C(3)*  Al3*0)*  XlN(3*3J*  E(3) 

T  Ah  =  l.bb 

F2=0.0 

bX-0.0 

YS=0 • 0 

NP I S=X ( 1 ) 

uO  000  1=1*3 

C ( l ) =0 • U 

L ( I ) =0  •  0 

DO  100  L=I *  3 

XlN( 1 *L)=0.0 

A ( I *L ) =0 • 0 

100  continue 

U0  200  U=l*NPTb 
xAhl J*  1  )=0.0 
Y Ah( J)=0.0 
LOu  CONTINUE 

ooo  continue 
F  =0  *  0 

b=0*0 

bSv*=0.0 

UO  400  1  =  1  *  NP  TS 
J=l  +  1 

XAKU*i>=1.0 

XAkI 1 *2)=AL0olxlJ) *100. ) 

AAK(I»0)=XAR(1»2>**2 
YAK( I )=f ( J) 

4  Ou  COnIINUl 

UO  bOO  1=1*3 
UO  bOO  o=i *NPTb 
C(I)=CU)+aAK(U*1)*YaHIJ) 
bOu  COnTINUc. 

uX=bX  +  UI)*H(l*2) 
oOo  CONTINUE 

UO  700  J=1 * NPTS 
YS=YS+YAK  ( J)  **£; 

70o  oOnTINue 

2oo0  FOhMAT(OX*  *  YS*  OX  »*2Flb.4  ) 

bbu= < YS-OX ) / ( X  (1 ) -0 . o ) 
b=SOKT  IbSvJ) 

UO  600  U=l*NPTb 

A(1*1)=A(1»1)4XAR(j*1)*xAk(J.I) 

A<1*2)=A(1*2)+XAR<  J*  1UXAK(  j*2) 

A(1*0)=m(1*3) +  XAR  tJ*l)*xAK(j*3) 
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At*.*  1  )=m(2*  1 )  ♦aARI J*2>  ♦  XANC  j,  1 ) 

A(2*2)=A(i*2)+AAR(  J*2>*XAKl  j*2) 
m  l  *  * 3 ) -m ( 2 * 3 ) ♦ AAR l J * 2 ) *X AK l J * 3 ) 

AC j*1)=A13*1)+aAR(j*3)*XARIj»1) 

A l j * 2 ) =A l J * 2 ) +AAR ( J * 3 ) *X AK ( j * 2 ) 

AC  j*  3>=AC3*  3) +AARC j, 3) *xARC j*  3) 

CONTINUE. 

J=hC1*1)»CA(2*2)*A13.3)-A13.2>*AC2*3) )+Atl*2)*CAC3*l)*AC2*3)-A(2*l 
i)*Ml3»3))+A(i*3)*tA(2*i)*Al3»2)-A(3»l)*A(2»2)) 
a1ix(1#1)  =  IA(2*2UA(3»3)-AC3»2>*A12»3))/U 
AlH(i»2)=tA(3»2)*A(l,3)-A(i#2)*A(3»3) )/0 
XInC1»3)  =  IA<W)*A(2»3)-AC2»2>*AU»3)  >/U 
XIn(2»1)=C«(3»1)*A(2.3)-A(2*1)*A(3»3) )/U 
XlN(2*2)=lA(l»l)*A(3»3)-AC3»l)*A(i»3))/U 
XIM2»3)  =  lA<2»l)*All»3)-All»l>*A(2»3>>/l> 
XlN(3»I)=tM(2»l)*AC3»2)-A(3,l)*A(2»2))/U 
XlN(3*2)  =  U(3»i)*ACl»2)-ACl.i)*AC3*2))/U 
XIw(3*3)  =  (A(lrl)*A(2»2)-A(2»l)*ACl»2)  )/L) 

RETURN 


ENTRY  PREJIC  C A * Y *NPTb , YL * YU *B * YPL * YPU ) 


UO  900  l=l*NPTb 
XAK ( I  *  1 ) =1 • 

J=l+l 

XAkII *2)=XC J) 
XAk(I»3)=XARCI#2)**2 
900  CuuT INUE 

YPl  1 1 )=NPTb 

YPuC1)=NPTS 

YUCl)=NPTS 

YLCl)=NPTb 

JO  mOu  J=1*NP1:> 

JO  1 lOu  1=1*3 
JO  1000  K= 1  *  3 

c.U)=EU)+XARIj*K)*XINCk*1) 
1 J  j  j  UOlxT  INUL 
iloO  LONTINUl 

JO  1200  1=1*3 
F=F-+L(I)*aaR(J*I) 

12u0  CONI INUL 
F2-1.0+I- 
F2=S0RT(F2) 

F  =  :jurT  l  F  ) 

N=J+1 

YUlN)=YCN)+TAM*i*F 
IL  CN ) -Y CN)  -T  AH*b*F 
YPulN)=Y  CN) +1 AH*b*F2 
TPl(N)=Y (N)-TAM*b*F2 
F  =  o  •  0 

UO  1300  1=1*3 
L( 1 >=0*O 


KfclUNN 

<iOOO  K)KMATlbX» *B' *bFlb.4) 

tiuO  FOKMATt  'SSii»  b»  F»  F2 ' »  bx . 4F lb. 4 ) 


LNu 

I 


I 


aUoROUT lNt  MODt-L 

{,,****  ****************************************  *************************** 
{.*********  DYNAMIC  CUbHlONINo  MODtL  ************************************ 
C******** ***********************************  **************************** 

iNTtGER  TYPEM 

COMMON  /STu1/TP»TC»SS*GL#NVk» V ( 51 ) 

COMMON  /STD2/  CHr CA t CC , GLMAX > SSL ( 3 ) t bbU ( 3 ) . W * OH» BMIN, bMAX 
COMMON/ bTD/ IL » TYPEM(3»20) »NV(2Q) *CONbT(20) #COEF(blt20) 

C 


»• 

L 

T* 

L 


bSlOO 

Z 

Sb  * 

loO. 

AL  = 

ALOG (  SbluO  ) 

AL*  = 

At.  *  AL 

bRDH 

Z 

aQRT( 

Uri 

) 

TR  = 

(TP  +  460.1 

0)/100. 

TR*  = 

TR  *  TR 

TR3  = 

Trt  *  TR 2 

TR4  = 

TK3  *  TR 

TCOH 

Z 

TC  ** 

(-1 

O.b) 

TCTH 

= 

TC  ** 

l- 

l.b) 

Viol) 

TK 

* 

TCOH 

V  l  o2 ) 

z 

TR 

* 

TCOH 

* 

AL 

V  ( u3 ) 

z 

TR 

* 

TCOH 

* 

AL* 

Vlu4) 

z 

TR 

* 

TCTH 

* 

SkUH 

V  l  Ob ) 

z 

TR 

* 

TCTH 

♦ 

SkUH 

* 

AL 

Vlub) 

z 

TR 

* 

TCTH 

* 

srdh 

* 

AL* 

V  1 07 ) 

z 

TR 

* 

TCOH 

* 

bRDH 

V  (06) 

z 

TK 

* 

TCOH 

* 

bRi)H 

* 

AL 

V  1 09) 

z 

TR 

* 

TCOH 

* 

bkDH 

* 

AL* 

V  (10) 

z 

TK* 

* 

TCOH 

V(ll) 

z 

TR2 

* 

TCOH 

* 

AL 

V  ( 12 ) 

z 

TR* 

* 

TCOH 

* 

AL2 

V  1 13) 

z 

TR* 

* 

TCTH 

* 

srdh 

Vll4) 

z 

TR* 

* 

TCTH 

* 

sroh 

* 

AL 

V  ( 15) 

z 

TK* 

* 

TCTH 

* 

bRDH 

* 

AL* 

V  ( lt> ) 

z 

TR* 

* 

TCOH 

* 

SRUH 

V(17) 

z 

TR* 

* 

TCOH 

* 

bRDH 

* 

AL 

Vllb) 

z 

TR2 

* 

TCOH 

* 

bRDH 

* 

AL* 

V  ( 19) 

z 

TR3 

* 

TCOH 

V  ( 20 ) 

z 

TR3 

* 

TCOH 

* 

AL 

Vl*l) 

z 

TR3 

* 

TCOH 

* 

AL2 

V  ( 22 ) 

z 

TR3 

* 

TCTH 

* 

bKDH 

V(*3) 

z 

TR3 

* 

TCTH 

* 

bRDH 

* 

AL 

V(24) 

z 

TR3 

* 

TCTH 

* 

bRDH 

* 

AL* 

V  (2b) 

z 

TR3 

♦ 

TCOH 

* 

bRDH 

Vl*t>) 

z 

TR3 

♦ 

TCOH 

* 

bRDH 

* 

AL 

V(27) 

z 

TR3 

* 

TCOH 

* 

bRDH 

* 

AL* 

V(2b) 

z 

TR 

* 

TCTH 

V(29) 

z 

TR 

* 

TCTH 

* 

AL 

V  ( 30 ) 

z 

TR 

* 

TCTH 

* 

AL* 

V  ( 31 ) 

z 

TK2 

* 

TCTH 

V  (32) 

z 

TR2 

• 

TCTH 

* 

AL 

L, 


i 
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V  ( o3 ) 

— 

Jdd  *  TCTH 

* 

AL2 

V(o4) 

- 

TKJ  *  TCTH 

V{  jb) 

- 

TK.J  *  TClH 

♦ 

AL 

V  (0  o) 

z 

TK,}  *  TCTH 

♦ 

Al_2 

VI  j7) 

z 

Trt 

V  l  Jti  ) 

— 

TK  *  HL 

V  l  J«9) 

- 

TK  *  AL<d 

V  U0) 

• 

T*2 

V  (  4  1  ) 

— 

T Kd  *  mL 

V  (  4<d  ) 

Z 

1  ><ti  *  AL2 

v  uj) 

Z 

TK  J 

V  (44) 

Z 

TKj  *  M4 

V  US) 

Z 

TrO  *  mL2 

COMHUTt  DYNAMIC  CUSHIONING  FUNCTlOn 

«L  =  CONST (IL) 

UA  =  NVIIL) 

UO  100  J— 1  * NA 
100  GL  =  GL  +  COtF(J'lL)  *  V(J) 

KL1UKN 

tNu 
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bLoCK  DATA 

c******************************#*#*****************1#******************** 

4  MODLl  culfkilnts 

(.*♦***♦*♦»♦♦♦♦♦♦♦*♦♦♦♦***♦**♦♦♦♦*♦♦*»♦«***»♦*♦♦****♦*♦**♦♦♦♦*»**♦**♦♦»«* 

iNItoLK  TYt'EM 

COMMON  /blLll/7F*TC*bb*6L*N\/K*V(6l) 

COMMON  /STb2/  CH#Ca*CC,GLMax*SSL(3) *bSU(3)  ***OE1*aMIN*bMAX 
COMMoN/bTo/  IL  *  1  YPtM(3*20>  *NV  (2u>  *CONbTl 20)  *COt.E  (31 *20) 

OA1A  (Nh)  (1)  *  l=l*lD/  4*3b*7*4b/ 

OA  I  A  (T  7PtM< 1  *  1  )  *  1  =  1  *  5)  /4HMINI  *  4HLTHA *  4HLTHA  *  ‘♦HURLT  ► 4HURE5/ 
uA I  A  (1 TPlm(2*1) *1-1*5) /4MolL  »4HF0AM»4HF0AM#4HHER-f4HTLR-/ 

OA I A  (TYPtM(3* 1 ) * 1  =  1#5)/4I(  * 4h-2  *4H-4  *4E(3  »4H4  / 

UA1 A ( T YPLM ( 1 * i) » I=b*ll)/  4HuKCb»  4HMIN  +  *  AHL  THA »  4HMIN+  »  4HLTHA  » 

1  *+Ht  THA/ 

UAl  AtTYPtM  (?_t  I) *l=o*ll)/  4H  TLR4  *  4  HURLS *  4Ei4*Ml  *  4HE.THA  # 4H2  +  ET  * 

1  4M4+tT/ 

OA  1  A ( T  YPtM l 3  *  1)  *I=o»ll)/  HiHMlN*  3i(TLK*  lhN*  1H4  ►  3HEtA4  *  3MHA2/ 

OA  1  A  ( CuNbl  (  I )  »  1  =  1  .3)  /-t).J9Jlbu2*  22.  b7j303*  32.  910823*  lb.  45b637* 

1  359.74b/ 

oATa  (CONbl  (I)  *1=6*11)/  17o.9630b*22o4.38B4*33B.b8941* 

1  495.97272* 10l.B4l2b*3b4.oo3l  / 

UA 1  A  ( ICOtH I* J> *1=1*51) »J=i*4)/ 
o  2*0. *3*34194  57*  0. *-15.310724. 3. 34  01 87* 2o7.4932b* 

1  -50.3595OJ* 1.4344436*0. »  — o • b9 58791 *4*0. *-54. BbbbB 7*11. o21 323  *  0 • * 

^  -1. 301o393* 2. 0  789b8b*-.22bb42*-. 40141 j3b* . ol 1 7303b *-. 0953190 * 

3  3.9422o4l*“. 8ooo377  *  0 . * -233 .775ob*2B.3034b8*0.*49.b7B7b*2b.3?324* 

4  -o.Gb 703/2*0* * -O • 1520 04 7* 1.0752880* 15*0  •  *3*0. *-38. 759499*  0  *  * 

5  1.2835002*202. 3992b  * -53 • 355374  *  2 . 970  0003  *3*0. *5. 980bu2b  *  2*0 . * 

b  -45.73217*8.1233337*3*0. * -. o09b2474bb* 2*0 . *-.02080280  *2.270b984. 
7  o. * -.007323231* -418. 94 Ooo *  15b. 407 73 *-13. 003959*  133.999bb* 

O  -3b. 92oo9*  2. 2bB5t93*-l 0*4  75401*2. 1412173* lb*0. *-48.107497*3*0. * 

9  -41 .b5o209* 0.0138922 *2 lb. 4 7o81 *-33.44o3b* 2*0*  *4.339839*2*0. * 

A  9. 47294  54  *-l.u0b3u34* -51. 7o  1093  *  3 .  b08  /8 19  *  .  555143b2  *  2*  0 .  * 
li  - .  1 0  1059o2 *“.<_19013b6*-. 53423020*0.  *3.23llb04*0«  *-.o3474b082* 
o  -253.l3i3l*13o.4b/72*-ll. do 398*  72.1 bb  74* -25.1 34 b7b*0«  *-4.1437095* 
U  0. * .35/100* 1 /  *  o  • * i3.28o95*-d.bblbldl*2*0. *b3«974639*-9. 0835167 * 
L-4. oil 159 7*0. *0.474952.-3.9426191* . 40 ldOl 09  *  1 . 8227191  *  0 . * 

E  -i8.55o0O3*o. *2.2398188*-.  7 lbbl 023*0. * . 49933221  *  0 .*-. 15187925* 
0-.ul327oOo2* l.o500b23*0. *-• 19795351 *21. 394 161 *-18. 657059 *3*0.* 
m  .408412 78*2*0. *  10*0./ 

L»A|A  (  (cOc-E  ( l*o)  *  1  =  1, 51)  .  o=3 *  5 )  / 3*0  •  * -107 . 9u  1 13*  32 . 93164  7* 

1  -3. 773 72ol*2oo.0294  3 *-49. 889708* -3. 0  392423*  3*o. *  19.77191  *2*0.  * 

3  -3b.4229b6*7.8434t>79*5. 1826845 *4*0.  *-1.0933512* .  14231548* 

4  3.7490497*0.  *-. 30983233 *  c*0 .  *  10 . 179853 *  48 . 384712 * -31 . bl921o *  0 .  * 

3  -9. 0 192091  *  3. 9355d5*-. 432 14979 *-213. 634*0. * 0 . 21 19242 *  0 . *  14 . 258070 
o  * -3. 00 76278 » 5. 3b99345 *-2.4543742* .59091583*0*0./ 

PA f A ( ( ooLF ( I  * J) *  1-1  *  31 ) * J-  o*  o>/ 

1  23*0. 0*0.0lo28c:159*  15*0.o  *-13« 903l3o *3*o.  0*o. 2690431 9 *9*0.0/ 

JArAUCotMI*  J)  *I  =  l*3l>  *  J=  7*  7)/ 

1  3*0.0*  73. 252322*-39.ol0023*-4.5592lb4*3.1754836*-l. 3005991* 

A  b* 0 • U  * 

2  3. oo2U029 * b*0.0*-0.48 j090oo *  0.0*-0. 29340759 *4* 0.0* 118.01099# 


8  0. 0 *-08. 09 1248 *0«U*-6.o216o2b* 9. 871 0246*0.0*0.09998098* 

4  -72b.0o749*-ll  7  . 02628* J.43987  70 » 68.o89JlU*  06.  49808  7 * -0 .  68  720  1  t)9* 
6  0.0* “2»  7082074*  7*0*0/ 

JA  I  AlKOl>  l  I  *  J)  *  1-1 *  bl  )  *J-  o*  8)/ 
i  o*0.0#8...ol4092*-6.U96l4u7*6*0.0*-0.o990460*0.60406l  76 * 

4.  -4 . 01294 / #  9 , 66oi9ioi *  4*u • o  *  o • 864904 19*  9*0 • u  * lo •  ooo 799 * 

J  -1  *62  Job 82* -2. 4697742*  0*u.0*“60. 44*7980#  0.  1 4 97u49 * -8. 8 140942 * 

4  6 .611 6006*0*0.0* “u *076602 lo9*6*0.0/ 

JA1  A(  U.OLM  I  #  J)  *  1=1 *6l)  *  J-  y*  9)/ 

1  0*0  •  0  *  Oo  .  062022  *  0. 0*  0  •  U*  7  .  201o49  7  * 6*0  •  0  *  -0*6097984  *  9*0*0  * 

2  0.  I  1994912*  0.  u»  -0.  06662  7900*  0*  0*  “88.86940  7#  0*0. 0*  1 1 . 0*0006* 

8  0*8.0  * -0.094999m  # o.o * “60. 7 1060 * 1.42661 7b* - 19.209/90# 

4  lu. 6041 60  # 0. 68692 748 *0.9 7094918 »0.o*-0. 14904718*6*0.0/ 

JA  I  A(  (CULt-  1  I*J)  *  1=1*61)  *  vJ-10  *  10 )  / 

1  -99 .  0628  1  0  * ..  1 . 064201 . 0. 0*0*0*  — 1.440  709 1*0.0*  16 .066 1 62  • 

2  “6. loOJO lb* 0.0691 6001 *0.0* 0,0 *-0.00. 09982*4.061482* 

j  6*0 . 0  *  0 . 080o0bl9*  0 . o  *  0 • o  * -0 , 6962 l80o« 0 .  1 1 0604  7 • 10*0 . 0  * 

4  1 .042064  1 .-O.OOo 72 1 12*291 .2026 *-68. 92 1084  *  0.0* -  71 .624 129* 

b  8. 61 14886*  0.9  7bo 9806*  4.  lo2«?  124  *  0 . 0  *  “0 . 14  790199,0*8.0/ 

JA 1  At  tCJLK lI*J)*l  =  l#6l)*J-ll*ll)/ 

1  6*0.0*41.1  78081  *-10.062469*  1.0064  126*  -o7.9i,0o2  7*  14.490869# 

^  -1. 1U99460* 8* 0*0* -0.2088u8 7* 0*6421 4670* u.O* 7. 20692..  1* 

A  -0 . 69906200 1  * U *  0 # 0* 0 ♦ 

8  -0.19269  766*0.0  666 10606  *  o*  0 .  0  *  22  •  6  7o8u  7  *  0*0 . 0  *  - 1  .  o  i  02096  *0.0* 

4  70. 2o9819 * -4 7 ,4 60968 *0.0*-lb. 996 790*6. 7u49790* 0 .88066089* 

6  0.0*0. 0 » “0 . 11 02 07 00*  o *0.0/ 
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. 


c 

V, 

L 

V. 

V. 

c 

C 

V* 

V. 

C. 

c. 

V. 

c. 

c 

C. 

c, 

c. 

c. 


1  u  0 


cOu 

JOo 

40c* 

^Ou 

O0u 


♦  V.ON1  mII.lK  LubhiONINo  Ut-bioN  E..MG1NLCK 

♦  UJSHuP  mNU  LNCAp  MOut.Lb 


* 

♦ 

* 

* 

* 

* 

* 

4 

4 

4 

4 

4 

4 

4 


I'iA  T  Lf\  i  Al  TYPLS 
MlWlCtL 
lImAFOAM  4. 

L  r  t iA*-  OAM  H 
OKLThtK  5 
OKLbTtK  4 

UM-blt-K  4  4  MlulCtL 
MlNlCtL  4  UKLbl  fc-K  4 
lIHAFomM  4  +  MlNlCLL 
MInIClL  ♦  t.lHAFOAM  4 
t_  I  HAF  OAM  ^  4  HhAFOAM  4 
LIHAFoAM  h  4  LIhAFOAM  £ 


4 

4 

4 

4 

* 

* 

♦ 

* 

4 

4 

4 

4 

4 

4 


LOi'iMON  /Srul/TF»1C,  bb  •  vjL  » I  W|\  »  V  i  bl  ) 

COMMON  /blu?/  CH»  C  A  •  CC  »  GLMAa  » SSL  l  3 )  »bSU(0)  »  to  *  0*4  *  UMIN#  UMAX 
li  I  Mt  Nb  I ON  1(b) 

LOui  valliill  ( r  l i )  * CH ) 

COw I  INUl 
1MT1 AL  I  ION 


•\LAl)lb»  *)  MOiJt-L  »  OM  »  Gl.MA  A  »  bh  *  C  A  #  CC  »  to  MjM  IN »  OMA  A 

IFIMOULl  •  i_Q •  1)  oolO  ^IU) 

iFIMODLl  .lO.  <_)  O0l0  J00 

iF  Ii«.OOll  .lO.  V9)  oOTO  i*0u 

PNanI  boO  *  i'iOOlL 


L»OlO  lUU 
CALL  CUbMO* 
oOiu  100 
CAll.  LNcAF 
oolo  loo 
FK\lw1  bOO 

FOKMAH 1H1 »  loA» ’tt'HOK  iN  MOulL  KtdULbT —  MObT  UF  A  l»trOR  A  *)«•) 
F  OrtlSAT  ( 1F<1 1  1  u  A  t  •  t.Nj  oF  oUb’  ) 
bT  OF 
LNO 


U’O 


SUuROUT ING  CUbMUP 


•  G  u  S  H  0  P  « 

GUbHION  MAICKiAL  THICKNESS  OPTIMIZATION  PROGRAM 


v. 

G 

G 

G 

G 

G 

G 


G 

G 

G 

10g 

G 

G 

G 

GOO 


300 

G 

G 

G 

G 

G 

*♦00 

G 

G 

G 


INIEOER  1TPEM 

COMMON  /bTul/  IP* lC*bS,GL*NVR*V(bl) 

gOMMON  /SluZ/  Gti# GA » CC » GLMAX  ►  SSL  (  3)  *bSol3>  ► «v  * OH *  DM  1 N »  l>M A  X 
gOMMON  /ST  G  /  1g» TYPtM(S*GU) ,NV(2u) *GONbl IGo) *CoEF(bl*cO) 
DIMENSION  1(b)*  T  GG  ( 5 )  *  YL(J)*  YU(3>*  IGMAX(ll)*  YM  <  3 ) 

EQOl  VALt_NGc.  (TU)*CH> 

UA 1  A  TCMAX/ *4.0*4 *0*4*0/ 

INITIALIZATION 

DATA  TGMAX/(4.J*l*«b*4.0»4»0*4.0*t>»0*t>.0*o«0*to«U*c>»0*OtU/ 

Obb  =  DELIA  jlATlC  STRESS  SSMIN  -  MlN  STATIC  blRLSS 

bbMAX  -  MAX  blAllG  STRESS  DTC  =  DELTA  MATERIAL  THICKNESS 

TGMIN  =  MIN  MATERIAL  IHlGKNLSb  TCMAX  =  MAX  MATERIAL  THICKNESS 

DA  1  A  USD  *  bbVi  IN*  bb^  AX  >  D  I  G  *  T  C Ki  1 N/  0  •  Ob  *  0  •  0  *  b  •  G  *  0  •  b  *  0  •  b/ 

DO  UOO  1 L—  1  *  1 1 
PRINT  IjOO 
TC  =  TGMIN 
T KnAX  =  I  gMax  (  Il>  +0  •  b 

IF  ( T  1 3 )  •  L 1  •  —  «£G •  o •  AND •  1L •  Gfc. . 4 )  GO  TO  lyUu 

HAS  MAXIMUM  TH1CKNLSS  DuLN  REACHED  J 

IF  ITC.oE. IKMAX)  do  TO  800 

IIMCREMgimT  TrUGKlMESS 

TC-1 C+U I C 
DO  300  0=1*3 
SSU(0)=0.0 
ICG ( J)=0.0 
bSLl J)=0.0 

INI  I IAlIZE  TEMPLRAIURE  INDEX 

N=0 

HAS  Third  IgMPlRaTdRE  UleN  REACHlD  i 
IF  IN.Gu.J)  DO  TO  dOu 
INCREMENT  TEMPERATURE 
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N=N+1 

TP-TIN) 


C  IMlllMLl.il.  oTAriC  STKtbb 

L 

bb-bbMiu 

C 

l  HAb  MAaIMUm  STmTIC  bTKtbb  OELN  NlAUiLD  5 

L 

bOu  IF  l bS • uT • bSM A A )  bo  TO  100 

L 

C  1  MCKcMLMT  blATlL  bTr<Ebb 


bb-bb+Ubb 


IF  ( GL  •  oT  •oL.'IAA )  bo  TO  t>00 


bbL IN) =bb 

rc^(N)=ic 

TL(M)=Gl 

c 

L  hAb  MAaIMUM  b  •  A  r  IC  sTKLib  dtLN  KtALHtL)  * 

L 

uQy  iF  l bS • bT • bSNMA )  bo  TO  70 u 
t 

L  IMCKLMLMT  blATIt  bFKEbb 


bb-bb+Ubb 


iF  (GL»l1 .uLMmA)  uO  TO  oOU 
IF IbL.bT .GlMAX) bb=bb-0bb 


/0o  bbblN)-bb 
YMN)=GL 
YUIN)=Gl 
t 

L  MAKl  KAMbL  Itbf 

L 

ltbT=bbU(M)-bbLlN) 

IF  ( TEbT • bfc.  • U • L )  bo  TO  i*Oo 
oO  TO  1U0 
o ju  lGuTINUl 

IF  l bbL l 0 ) .EG* u • o )  b0  TO  yOu 
TEaT=bbu ( A ) -bbL l 0 ) 

IF  lTEST.Gt.u.<d)  bo  TO  1  luo 
*00  COuTINUl 

IF  (TC.LT. IKMAa)  bo  TO  2o U 

PRINT  lo00»  TKmAX *  TYpEMl 1 » 1l) *1YPEM12* 1L>  *  1 YPEMtir 1L) »SbL( i) , 
i  bbUtl)  •  Gli*iAA  #  T  IJ)  #YM<  3)  »Tlt)  *YM(2)  »T(i)  •  YP(i) 
bO  TO  1^00 
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r  t-  r  c  o  r  r 


1O0O 


IF (  iL  .  GE .  o)  oOTO  loo 

PRiNT  1S0G  •  7YPEM<l»IL)rTYPEM<2»IL)»  l'YPEM(3»IL) 

GO  10  1200 
iloO  COhT  INUc. 

bMiN=w/dSUl 1 ) 
dMmX=k/:jSL(3) 

PRINT  1400  t  TYPtMd*  IL)  t  T  TPfc.M  ( 2 1 IL )  »  I YPEM(3,  IL)  t  SSL  (  3)  » SSU  ( 1 )  » DH» 
IGLmAX  *  TC »  T  ( 3 )  t  ri<;)  » T  ( I )  »  w  #  d(v,l  N » UMAX 

PRINT  T MdoL  OP  STATIC  STRESS  VERSUS  G-lEVEi.S  Fuk  THE  THREE 
F EMPEkATURES  —COLD  »  AMdiENT  AND  HOT 

CALL  TAdLE 

oO  CONTINUE 

RE  I  URN 


i3oO  format  (ihi»T23» ’Cushion  material  optimuai  ion*  »/,T33» ’cushop*  »/) 

14uU  FORMAT  l T 32 t  3m4 t  /  •  bX t  ' LOWER  SS  ’  »F5«2»2X»  ’UPPER  SS  •  »P5.2»2X* ’DROP 
1  HcIgHT*  »Fb.l»cX» ’G-LEVEL*  n-o»  1  ’  / 1 8X *  *  i»iATERI  AL*  » *  THICKNESS*  »Ffi. 2* 
t/»ox»  ’Temperatures*  »3X>3Fi2.2*/ *bx* ’weight*  »F8.2*2x»  *mIn.  hearing 
3ARlA* »Fd.2»2X» ’MAX.  BEARING  AREA  * > Fb . 2 > / ) 
j.300  FORMAT  l//»5X»  '  INVALID  LOwEr  TEMPERATURE  Fur  *»3A4) 
lbUO  FORMAT  (//»5X» »***BEYOnu  MAXIMUM  THICKNESS  t’»F6.2*«  )  OF  • t 3A4 

i » / » 6X t  * LOWtR  SS  ”F5.3»2X» ’UPPER  SS  * »F5.3»2X» ’DROP  HEIGHT* » F6. 1  *  2 
tit  'G-LEvEL*  *Fb.l»/»l0X» ’HOT  TEMPERaTURe’ »3X*F8.3»dX» ’G-LEVEL' » 

g3X»F6.3*/»10X» ’AMdiENT  TEMPERATURE’ »3X»P8«3»3X»  *  G-LEVEL  *»3X»F8.3»/ 
4»10Xr ’CuLu  IEMPERATURE*  »3X*F8.3»3X» ’G-LEVEL’ »3X»F8. 3 »//) 

ENu 
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SUuKOUl  INE  ENuAP 

t.4^*^***  *****************  4-**  ********************************  ************ 

c 

c  *  e  N  C  A  P  • 

l  cncapsueation  Cushion  material  optimization  program 

c 

C  OEieRMInE  MATERIAL  THICKNESS  FOR  GIVEN 

e  STATIC  STRESS  CROP  HEIohT  Anli  TEMPERATURES 

L************************************** **********************  *********** 
C 

INTEGER  TYPEM 

COMMON  /STU1/  IP» TC#SS»OL»NVR» V (SI) 

COMMON  /STC2/  Ui»CA»CC»GLMAx»SSL(3)  »SSUlO)  »«,'»DH»bMINrbMAX 
COMMON  /STu/  lL»TYPEM(3»2u) »NV(2U) »CONST(2u) »C0EF(SlfZU) 
uImENSIuN  TCMmX(5)>  Y M ( 3 ) »  j ( 3 ) 

EOul VALlNCL  (T(1)»CH)»  (TC»ThCK) 

UA1 A  TCmAa/4 • 0 » 4 • l » 4 . 0 # 4 • U f h . 0/ 

L 

c  Initialization 

c 

L  OSS  =  uEt-1  A  STaTIC  STRESS  SSMIN  =  MIN  SIATIC  STRESS 

L  SSMAX  =  Max  oTATlC  STRESS  DTC  =  OEL1A  MATERIAL  ThICKNESS 

c  t cm in  -  min  material  thickness  tcmax  =  max  material  thickness 

L 

UA I  A  DSS » SSMIN » SSMAX » OTC » TCmIN/0. OS »0.u»b.U»0.b» 0.5/ 

c 

SU-kv/OMIN 

SL=w/BMmX 

u 

lOu  00  buO  *L-i»S 
PRINT  1000 
TKMAX=TuMAX (  1l)+BO 
TC  -  TCMIN 

zoo  tc=tc+c.s 

IF  ITC.oT.TKMAx)  oo  TO  boo 

YM(I)=0.O 

YM(2)=0.0 

YMl j)=0.0 

SS-SL 

IF  l  T  ( 3 )  .  L  I  •  “ZO  •  U  •  AND  *  1L  •  t»E ,  h  )  00  TO  4u0 
I  -  J 

30o  CONTINUE 
TP=T ( I ) 

{,************+********************************************************** 

CALL  MOuEL 

{,*********************************************4************************* 

YM(1)=Gl. 

IF  ( uL • GT • gLMaa )  uO  TO 
SS=SU 

1  =  1-1 

IF l I  . Gl.  i)  guTO  30o 

PRINT  700 »  TYPcM(l» IL) # TYPem (2» 1L) . TYPeM ( 3 » IL ) >Sl,SU,uH,GLMAX*TC» 
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■ 


lTlo)fTlt)»l  (!)»<*»  UMIN»  UMAX 


oO  TO  t>00 

hJo  PRiNT  9uU*  TYPtM ( i » IL > t T  YPEm (2# IL) t T  YPcM (3* IL ) 
v»0  TO  t>00 

bGU  PRINT  tu)0 •  TKMAX»T>PtM(l#iL) »TYP£M(2»IU »TYHEM(3»IL) #SL#SU»OH»OLMA 
1 A  *  IT(J)  iYMJ)  »J-10) 
oCG  COnTlNUc. 

RE 1  URN 
C 
0 
v. 

L 

70o  FORMAT  IT32*3A4*/»oX* 'uOWt-R  bb  •  •  Fb .  2 » 2X •  »  UPPER  bS  •  t  F  b .  2 » 2X »  ' DROP 
1  HlIghI  *  a.  i  »^A»  'o-LEVLL*  »Fu*l»/»BX»  ' MATERIAL  '  •  •  THKKNESb'  *Fb*2* 
fc/#oX»  •  Tt.MPt.RA  I  oREb*  »3X,  jFi2.t»/»aX»  '  WEIGHT  '  >F8.2*2X* 'MlN.  BEARING 
OHRlA*  »Fa.2#2X»  'MAX.  BEARING  AREA • > Fb . 2  * / ) 
oOu  FORMAT  l//»5X» '***BEYOND  MAXIMUM  TH1CKi\.lSS  ('*Ft>.2»'  )  OF  • ,  3A4 

i * / » uX » * LO*ER  bb  •  *Fb.2#2X» 'UPPER  SS  ' • Fb .2 » 2X t ♦ DROP  HEIGHT •» Fb . 1 > 2 
c A # 'G-LEvEL*  »Fo« !»/ * 10X» 'HUT  TEMPERATURE*  *3X»F8.3»3X» 'G-LEVEL* » 

OuX»(-b.3*/»iOA»  'AMUIEWT  TtMpLKATUKE'  »3X»FB.3»3X*  ' G-LEVEL  '  »3X»F8.3»/ 
H *  1  y X *  '  CuLo  TEMHtRATUKE'  » OX  * F8 • 3 > 3X »  'G-LEVEL'  *3X»Fb*3»//) 

*0o  CUkmAT  l// »5X» ' INVALID  LOwEr  TEMPERATURE  For  • #  3A4 ) 
iOo’J  FORMAT  UH1  »T23»  'CUbHloN  MATERIAL  OPT  IMZAT  ION '»/»  T33» 'ENCAP '*/ > 
ENl» 


iUuNCUTiNL  TAULc. 


L  PRiNT  T AbLC  OF  STATIC  bTKL:>b  VLKbUb  o-LEVELb  FoR  THE  1 HREE 

v.  I EmPER A  I  UKLS  -  COLUtAMuIEwr  AND  HOT 

C 

COMMON  /bio/  iu»  TYpEM(3#20  )  »NV(2u  )  »CONbT  (2o  )  »CoEF  (  bl  »20) 
COMMON  /STol/TH»TC#bS»oLfNVrv»V(51) 

COMMON  /bfu2/  Cfi »  C  A » CC  » GLMAx  » SSL  (  3 )  »  bbo  (  i )  »  W  » DH » tJMlN » UMAX 
C 

hb  =  O.Ob 
A  -  u.O 

Abl  =  9^99999.0 
PKiNT  bUO 
UO  400  1-lflOU 

rp  =  cc 

CALL  MOuEL 

yc-ol 

iFlYC  .oE»  O.o)  0010  loO 
A  =  1.0 
yc  =  Abl 
lOu  COimTINUl 
rp  =  ca 
Call  MOoEL 
r  a-ol 

if-  v  YA  .OE.  0.  0)  GOT 0  2ilO 
A  =  1.0 
YA  -  AbT 
too  cONTINUl 
TP  =  CH 
CALL  MOOLL 
Yh=0L 

iFUH  • oE •  O.u)  OOTO  300 
A  =  1.0 
Yh  -  Abl 
jJo  COnTiNUt. 

PKiNl  ouO »  hb  »  T  L  #  YA  t  Yh 
bb  =•  bb+0 • ub 
4  Ou  cOu  r xnul 

iF (  A  .LQ.  0.0)  RE1URN 
PKiNT  70 0 
KLIUKN 
L 

bOw  F Or\MAT  l /  »  8X#*bTATiC  bTKtb^ *  » 4X »  ♦  COLD  G-LLVEL*»4Xf 

i'AMblENl  0-LEVEL* »4X* 'hot  o-lEVEL*»/) 
uOO  P0rMJ)ATll0X»Fb»t»3^12X^Fb»L)  ) 

7 Jo  FOkMaTI  /»10a» 'AbTERIbKb  INDICATE  CALCULATED  O  VALUE •  » 

1  *  UOF.b  NO]  EXlbT '  ) 
lNu 
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